Updated to 0.30.

Approved by:	markm

3 files changed, 302 insertions, 255 deletions

diff --git a/databases/p5-DBD-InterBase/Makefile b/databases/p5-DBD-InterBase/Makefile
index 74dbd60..808439a 100644
--- a/databases/p5-DBD-InterBase/Makefile
+++ b/databases/p5-DBD-InterBase/Makefile
@@ -6,7 +6,7 @@
 #
 
 PORTNAME=	DBD-InterBase
-PORTVERSION=	0.28.4
+PORTVERSION=	0.30
 CATEGORIES=	databases perl5
 MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
 MASTER_SITE_SUBDIR=	DBD
diff --git a/databases/p5-DBD-InterBase/distinfo b/databases/p5-DBD-InterBase/distinfo
index 4f4118c..98c0d1e 100644
--- a/databases/p5-DBD-InterBase/distinfo
+++ b/databases/p5-DBD-InterBase/distinfo
@@ -1 +1 @@
-MD5 (DBD-InterBase-0.28.4.tar.gz) = 4fdfd1179e00c4d72de99a251ae49c32
+MD5 (DBD-InterBase-0.30.tar.gz) = 8602958c02671223dc4b5a6770c3d886
diff --git a/databases/p5-DBD-InterBase/files/patch-Makefile.PL b/databases/p5-DBD-InterBase/files/patch-Makefile.PL
index ba6b849d..54ba82f 100644
--- a/databases/p5-DBD-InterBase/files/patch-Makefile.PL
+++ b/databases/p5-DBD-InterBase/files/patch-Makefile.PL
@@ -1,6 +1,15 @@
---- Makefile.PL.orig	Fri Jul 13 12:48:14 2001
-+++ Makefile.PL	Mon Oct 15 14:37:54 2001
-@@ -30,51 +30,11 @@
+--- Makefile.PL.orig	Fri Apr  5 07:35:30 2002
++++ Makefile.PL	Sat Apr  6 15:16:46 2002
+@@ -16,8 +16,6 @@
+ use Carp;
+ use strict;
+ use File::Basename;
+-use vars qw($Registry);
+-
+ 
+ # This DBI must be installed before we can build a DBD.
+ # For those not using Dynamic loading this means building a
+@@ -29,55 +27,12 @@
  my $ib_dir_prefix;
  
  # init stuff
@@ -15,39 +24,43 @@
 -################################################################################
 -if ($Config::Config{osname} eq 'MSWin32')
 -{
--  $isql_name = 'isql.exe';
-- 
--  # try to find InterBase installation via the registry
--  my $ib_bin_dir = '';
--  my $ib_inc_dir = '';
--  eval 
--  {
--    require Win32::TieRegistry;
--	Win32::TieRegistry->import('$Registry');
--	$Registry->Delimiter("/");
--
--    my $sw = $Registry->{"LMachine/Software/"};
--
--    # We have to check more than one keys, because different
--    # releases of InterBase have used different key hierarchies.
--    my $key = $sw->{"InterBase Corp/InterBase/CurrentVersion/"} ||
--	          $sw->{"Borland/InterBase/CurrentVersion/"};
--
--    if (defined($key)) 
--    { 
--      $ib_bin_dir = $key->{"/ServerDirectory"}; 
--      $ib_inc_dir = $key->{"/RootDirectory"} . "SDK\\include"; 
--      $ib_lib_dir = $key->{"/RootDirectory"} . "SDK\\";
--    }
--  };
--  @ib_bin_dirs = ($ib_bin_dir);
--  @ib_inc_dirs = ($ib_inc_dir);
+-    $isql_name = 'isql.exe';
+-
+-    # try to find InterBase installation via the registry
+-    my $ib_bin_dir = '';
+-
+-    eval
+-    {
+-        require Win32::TieRegistry;
+-        Win32::TieRegistry->import('$Registry');
+-        $Registry->Delimiter("/");
+-
+-        my $sw = $Registry->{"LMachine/Software/"};
+-
+-        # We have to check more than one keys, because different
+-        # releases of InterBase have used different key hierarchies.
+-
+-        my $key = $sw->{"InterBase Corp/InterBase/CurrentVersion/"} ||
+-              $sw->{"Borland/InterBase/CurrentVersion/"} ||
+-              $sw->{"FirebirdSQL/Firebird/CurrentVersion/"};
+ 
+-        if (defined($key))
+-        {
+-            $ib_bin_dir = $key->{"/ServerDirectory"};
+-            $ib_lib_dir = $key->{"/RootDirectory"};
+-        }
+-    };
+-
+-    $ib_lib_dir .= '\\' unless ($ib_lib_dir =~ m|^.*\\$|gi);
+-
+-    @ib_bin_dirs = ($ib_bin_dir);
+-    @ib_inc_dirs = ($ib_lib_dir . "SDK\\include", $ib_lib_dir . "include");
 -}
 -else
 -{
--  $isql_name = 'isql';
--  @ib_bin_dirs = (qw(/usr/interbase/bin /opt/interbase/bin /usr/bin /usr/local/bin));
--  @ib_inc_dirs = (qw(/usr/interbase/include /opt/interbase/include /usr/include));
+-    $isql_name = 'isql';
+-    @ib_bin_dirs = (qw(/usr/interbase/bin /opt/interbase/bin /usr/bin /usr/local/bin));
+-    @ib_inc_dirs = (qw(/usr/interbase/include /opt/interbase/include /usr/include));
 -}
 +my $IB_BASE='%%IB_BASE%%';
 +my $IB_Bin_path = $IB_BASE.'/bin';
@@ -55,39 +68,50 @@
 +my $ib_lib_dir = $IB_BASE.'/lib';
 +my $ib_inc = $IB_BASE.'/include';
  
- ################################################################################
- # sub test_files - checks if at least one of the files in the list exists
-@@ -92,171 +52,12 @@
+ sub locate_dbi_arch_dir {
+     my $dbidir = dbd_dbi_dir();
+@@ -89,199 +44,18 @@
  }
  
  ################################################################################
--# sub dir_choice - promts for a directory
--# Paramters: 
+-# sub test_files - checks if at least one of the files in the list exists
+-# Paramters:
+-#  0: directory
+-#  1: reference to file list
+-# Return value: true value if at least on file exists, 0 otherwise
+-################################################################################
+-sub test_files
+-{
+-    my($dir, $files) = @_;
+-    local $_;
+-    -f "$dir/$_" && return $_ for @$files;
+-    0;
+-}
+-
+-################################################################################
+-# sub dir_choice - prompts for a directory
+-# Parameters:
 -#  0: prompt string
--#  1: reference to direcotry list
+-#  1: reference to directory list
 -#  2: reference to file list
 -# Return value: directory name
 -################################################################################
--sub dir_choice 
+-sub dir_choice
 -{
--  my($prompt, $dirs, $files) = @_;
--  my %dirs = ('a' => 'other');
--  my $i;
--  my $ret;
--
--  test_files($_, $files) && ($dirs{++$i} = $_) for @$dirs;
--  while() 
--  {
--    print "\n$prompt\n\n";
--    print "$_) $dirs{$_}\n" for sort keys %dirs;
+-    my($prompt, $dirs, $files) = @_;
+-    my %dirs;
+-    my $i;
+-    my $ret;
 -
--    my $choice = prompt("Your choice:");
--    next unless $dirs{$choice};
--
--    $ret = ($choice eq 'a') ? prompt("Directory:", $ret) : $dirs{$choice};
--    return $ret if test_files($ret, $files);
--    print "\nDirectory is bad\n";
--  }
+-    test_files($_, $files) && ($dirs{++$i} = $_) for @$dirs;
+-    for (1..3)
+-    {
+-        foreach my $d (sort keys %dirs) {
+-            my $choice = prompt("$prompt :", $dirs{$d});
+-            return $choice if test_files($choice, $files);
+-        }
+-    }
+-    print "Cannot proceed. Aborting..\n";
 -}
 -
 -################################################################################
@@ -95,59 +119,59 @@
 -# Parameters: <none>
 -# Return value: <none>
 -################################################################################
--sub make_test_conf 
+-sub make_test_conf
 -{
--  my $test_conf = './t/test.conf';
--  my ($dsn, $user, $pass, $path);
+-    my $test_conf = './t/test.conf';
+-    my ($dsn, $user, $pass, $path);
 -
--  # read cached config if available
--  if (-r $test_conf) 
--  {
--    print "Reading cached test configuration...\n";
--    open F, $test_conf or die "Can't open $test_conf: $!";
--    local @ARGV = ($test_conf);
--    ($dsn, $user, $pass) = map {chomp;$_} <>;
--    ($path) = $dsn =~ /(?!db|database)=([^;]+);/;
--    close F;
--  }
+-    # read cached config if available
+-    if (-r $test_conf)
+-    {
+-        print "\nReading cached test configuration...";
+-        open F, $test_conf or die "Can't open $test_conf: $!";
+-        local @ARGV = ($test_conf);
+-        ($dsn, $user, $pass) = map {chomp;$_} <>;
+-        ($path) = $dsn =~ /(?!db|database)=([^;]+);/;
+-        close F;
+-    }
 -
--  # ask for database path
--  for (1..3) 
--  {
--    $path = prompt("\nFull path to your test database:", $path);
--    last if $path;
--  }
+-    # ask for database path
+-    for (1..3)
+-    {
+-        $path = prompt("\nFull path to your test database :", $path);
+-        last if $path;
+-    }
 -
--  die "Must specify a test database" unless $path;
+-    die "Must specify a test database" unless $path;
 -
--  #PFW - isql on windows doesn't seem to work without the localhost in the db path
--  my $hostpath = $path;
--  if ($path =~ /^localhost:(.+)/) {
--    $hostpath = $1;
--  }
--  # if DB doesn't exist ask for creation
--  unless (-f $hostpath) 
--  {
--    print <<"EOM";
+-    #PFW - isql on windows doesn't seem to work without the localhost in the db path
+-    my $hostpath = $path;
+-    if ($path =~ /^localhost:(.+)/) {
+-        $hostpath = $1;
+-    }
+-    # if DB doesn't exist ask for creation
+-    unless (-f $hostpath)
+-    {
+-        print <<"EOM";
 -Can't find $path
 -Trying to create the test database..
 -Please enter a username with CREATE DATABASE permission.
 -EOM
 -
--    $user = prompt("Username:", $user);
--    $pass = prompt("Password:", $pass);
--    create_test_db($path, $user, $pass);
--  } 
--  else 
--  {
--    $user = prompt("Username:", $user);
--    $pass = prompt("Password:", $pass);
--  }
+-        $user = prompt("Username :", $user);
+-        $pass = prompt("Password :", $pass);
+-        create_test_db($path, $user, $pass);
+-    }
+-    else
+-    {
+-        $user = prompt("Username :", $user);
+-        $pass = prompt("Password :", $pass);
+-    }
 -
--  # save test config to file
--  open F, ">$test_conf" or die "Can't write $test_conf: $!";
--  print F "dbi:InterBase:db=$path;ib_dialect=3\n$user\n$pass\n";
--  close F;
+-    # save test config to file
+-    open F, ">$test_conf" or die "Can't write $test_conf: $!";
+-    print F "dbi:InterBase:db=$path;ib_dialect=3\n$user\n$pass\n";
+-    close F;
 -}
 -
 -################################################################################
@@ -158,61 +182,61 @@
 -#  2: password
 -# Return value: <none>
 -################################################################################
--sub create_test_db 
+-sub create_test_db
 -{
--  my ($path, $user, $pass) = @_;
+-    my ($path, $user, $pass) = @_;
 -
--  # create the SQL file with CREATE statement
--  open(T, ">./t/create.sql") or die "Can't write to t/create.sql";
--  while(<DATA>) 
--  {
--    s/__TESTDB__/$path/;
--    s/__USER__/$user/;
--    s/__PASS__/$pass/;
--    print T;                
--  }
--  close T;
+-    # create the SQL file with CREATE statement
+-    open(T, ">./t/create.sql") or die "Can't write to t/create.sql";
+-    while(<DATA>)
+-    {
+-        s/__TESTDB__/$path/;
+-        s/__USER__/$user/;
+-        s/__PASS__/$pass/;
+-        print T;
+-    }
+-    close T;
+-
+-    # try to find isql
+-    my $isql;
+-    if (-x "$IB_Bin_path/$isql_name") { 
+-        $isql = "$IB_Bin_path/$isql_name"; 
+-    } else {
+-        for (split /:/, $ENV{PATH})
+-        {
+-            s#/+$##g;
+-            if (-x "$_/$isql_name") {
+-                $isql = "$_/$isql_name"; last; 
+-            }
+-        }
+-    }
 -
--  # try to find isql
--  my $isql;
--  if (-x "$IB_Bin_path/$isql_name") 
--     { $isql = "$IB_Bin_path/$isql_name"; }
--  else
--  {
--    for (split /:/, $ENV{PATH}) 
+-    EXEC:
 -    {
--      s#/+$##g; 
--      if (-x "$_/$isql_name") 
--         { $isql = "$_/$isql_name"; last; }
+-        for (1..3)
+-        {
+-            $isql = prompt("Enter full path to isql: ", $isql);
+-            last EXEC if (-x $isql);
+-        }
+-        die "Unable to execute isql. Aborting..";
 -    }
--  }
 -
--  EXEC: 
--  {
--    for (1..3) 
+-    #PFW - isql on windows doesn't seem to work without the localhost in the db path
+-    my $hostpath = $path;
+-    if ($path =~ /^localhost:(.+)/) {
+-        $hostpath = $1;
+-    }
+-    # if test db directory doesn't exist -> try to create
+-    my $dir = dirname $hostpath;
+-    unless (-d $dir)
 -    {
--      $isql = prompt("Enter full path to isql: ", $isql);
--      last EXEC if (-x $isql);
+-        print "Can't find $dir. Trying to mkdir..\n";
+-        system('mkdir', '-p', $dir) == 0
+-        or die "Can't mkdir -p $dir";
 -    }
--    die "Unable to execute isql. Aborting..";
--  }
--  
--  #PFW - isql on windows doesn't seem to work without the localhost in the db path
--  my $hostpath = $path;
--  if ($path =~ /^localhost:(.+)/) {
--    $hostpath = $1;
--  }
--  # if test db directory doesn't exist -> try to create
--  my $dir = dirname $hostpath;
--  unless (-d $dir) 
--  {
--    print "Can't find $dir. Trying to mkdir..\n";
--    system('mkdir', '-p', $dir) == 0 
--      or die "Can't mkdir -p $dir";
--  }
 -
--  # try to execute isql and create the test database
--  system($isql, '-i', './t/create.sql') == 0 
+-    # try to execute isql and create the test database
+-    system($isql, '-i', './t/create.sql') == 0
 -    or die "Fail calling $isql -i t/create/sql: $?";
 -}
 -
@@ -228,185 +252,198 @@
 -
  unless(-x $IB_Bin_path)
  {
-   carp "I cannot find your InterBase installation.\nDBD::InterBase cannot build or run without InterBase.\n";
-@@ -270,10 +71,6 @@
- $IBVERSION =~ s/^gfix version //o;
- my $is_final = $IBVERSION =~ /\.6\d+$/ ? 1 : 0;
+     carp "I cannot find your InterBase installation.\nDBD::InterBase cannot build or run without InterBase.\n";
+     exit 1;
+ }
  
+-# get InterBase version
+-my $IBVERSION;
+-my $GFIX_PATH = $IB_Bin_path . "/" . test_files($IB_Bin_path, [qw(gfix gfix.exe)]);
+-chop($IBVERSION = `$GFIX_PATH -z 2>&1`);
+-$IBVERSION =~ s/^gfix version //o;
+-my $is_final = $IBVERSION =~ /\.6\d+$/ ? 1 : 0;
+-
 -# prompt for IB include dir
--my $ib_inc = dir_choice("Interbase include directory", [@ib_inc_dirs], [qw(gds.h ibase.h)]);
+-my $ib_inc = dir_choice("InterBase include directory", [@ib_inc_dirs], [qw(gds.h ibase.h)]);
 -
 -
  # we use a hash for the MakeMaker parameters
  my %MakeParams = (
-   'NAME'          => 'DBD::InterBase',
-@@ -283,183 +80,13 @@
-   'CCFLAGS'       => '',
-   'INC'           => "-I\"$ib_inc\" -I\"$dbi_arch_dir\"",
-   'OBJECT'        => "InterBase.o dbdimp.o",
--  'LIBS'          => [''],
-+  'LIBS'          => "-L$ib_lib_dir -lgds",
-   'OPTIMIZE'      => $Config::Config{'optimize'},
-   'XSPROTOARG'    => '-noprototypes',
-   'dist'          => {COMPRESS=>'gzip -9f', SUFFIX=>'gz'},
-   'realclean'     => '*.xsi test.conf',
+     'NAME'          => 'DBD::InterBase',
+@@ -291,7 +65,7 @@
+     'CCFLAGS'       => '',
+     'INC'           => qq(-I$ib_inc -I${\locate_dbi_arch_dir()}),
+     'OBJECT'        => "InterBase.o dbdimp.o",
+-    'LIBS'          => [''],
++    'LIBS'          => "-L$ib_lib_dir -lgds",
+     'OPTIMIZE'      => $Config::Config{'optimize'},
+     'XSPROTOARG'    => '-noprototypes',
+     'dist'          => {COMPRESS=>'gzip -9f', SUFFIX=>'gz'},
+@@ -299,181 +73,6 @@
+     'realclean'     => {FILES => "t/test.conf"},
  );
  
 -# the OS specific build environment setup
 -my $os = $Config::Config{'osname'};
 -if ($os eq 'MSWin32')
 -{
--  # set up PPM package parameters
--  $MakeParams{'AUTHOR'}   = 'Edwin Pratomo (edpratomo@users.sourceforge.net'; 
--  $MakeParams{'ABSTRACT'} = 'DBD::InterBase is a DBI driver for InterBase, written using InterBase C API.';
--    
--  my $vc_dir = '';
--  if ($Config::Config{'cc'} eq "cl") 
--  {
--    # try to find Microsoft Visual C++ compiler
--    eval 
+-    # set up PPM package parameters
+-    $MakeParams{'AUTHOR'}   = 'Edwin Pratomo (edpratomo@users.sourceforge.net)';
+-    $MakeParams{'ABSTRACT'} = 'DBD::InterBase is a DBI driver for Firebird and InterBase, written using InterBase C API.';
+-
+-    my $vc_dir = '';
+-    if ($Config::Config{'cc'} eq "cl")
 -    {
--      require Win32::TieRegistry;
--      Win32::TieRegistry->import('$Registry');
--      $Registry->Delimiter("/");
+-        # try to find Microsoft Visual C++ compiler
+-        eval
+-        {
+-            require Win32::TieRegistry;
+-            Win32::TieRegistry->import('$Registry');
+-            $Registry->Delimiter("/");
 -
--      my $sw = $Registry->{"LMachine/Software/"};
+-            my $sw = $Registry->{"LMachine/Software/"};
 -
 -
 -
--      # We have to check more than one keys, because different
--      # releases of Visual C++ have used different key hierarchies.
--      my $key 
--        = $sw->{"Microsoft/VisualStudio/6.0/Setup/Microsoft Visual C++"} ||
--          $sw->{"Microsoft/VisualStudio/7.0/Setup/VC"};
+-            # We have to check more than one keys, because different
+-            # releases of Visual C++ have used different key hierarchies.
+-            my $key = 
+-                $sw->{"Microsoft/VisualStudio/6.0/Setup/Microsoft Visual C++"} ||
+-                $sw->{"Microsoft/VisualStudio/7.0/Setup/VC"};
 -
--      if (defined($key)) 
--      { 
--        $vc_dir = $key->{"/ProductDir"}; 
--      }
--    };
--    my @vc_dirs = ($vc_dir . "/bin");
+-            if (defined($key))
+-            {
+-                $vc_dir = $key->{"/ProductDir"};
+-            }
+-        };
 -
--    my $VC_PATH = dir_choice("Visual C++ directory", [@vc_dirs], [qw(cl.exe)]);
+-        my @vc_dirs = ($vc_dir . "/bin");
 -
--    unless (-x $VC_PATH){
--      carp "I can't find your MS VC++ installation.\nDBD::InterBase cannot build.\n";
--      exit 1;
--    }
+-        my $VC_PATH = dir_choice("Visual C++ directory", [@vc_dirs], [qw(cl.exe)]);
 -
--    my $vc_inc = $VC_PATH . "/include"; 
--    my $vc_lib = $VC_PATH . "/lib"; 
+-        unless (-x $VC_PATH){
+-            carp "I can't find your MS VC++ installation.\nDBD::InterBase cannot build.\n";
+-            exit 1;
+-        }
 -
--    $INC .= " -I\"$vc_inc\"";
+-        my $vc_inc = $VC_PATH . "/include";
+-        my $vc_lib = $VC_PATH . "/lib";
 -
--    my $ib_lib = dir_choice("Interbase lib directory", [$ib_lib_dir . "lib_ms"],
+-        $INC .= " -I\"$vc_inc\"";
+-
+-        my $ib_lib = dir_choice("InterBase lib directory", 
+-                            [$ib_lib_dir . "SDK\\lib_ms", $ib_lib_dir . "lib"],
 -                            [qw(gds32_ms.lib)]);
 -
--    my $cur_libs = $Config::Config{'libs'} ;
--    my $cur_lddlflags = $Config::Config{'lddlflags'} ;
--     
--    eval "
+-        my $cur_libs = $Config::Config{'libs'} ;
+-        my $cur_lddlflags = $Config::Config{'lddlflags'} ;
+-
+-        eval "
 -    sub MY::const_loadlibs {
 -    '
 -LDLOADLIBS = \"$ib_lib/gds32_ms.lib\" \"$ib_lib/ib_util_ms.lib\" $cur_libs
 -LDDLFLAGS = /LIBPATH:\"$vc_lib\" $cur_lddlflags
 -    '
 -    } ";
--  } 
--  else 
--  {
--    # Borland C++ 5.5
--    my $bcc = $Config::Config{'bcc_path'} . "\\";
+-    }
+-    else
+-    {
+-        # Borland C++ 5.5
+-        my $bcc = $Config::Config{'bcc_path'} . "\\";
 -
--    my $BCC_PATH = dir_choice("Borland C++ directory",
--      [qw(c:/borland/bcc55), $bcc],
--      [qw(bin/bcc32.exe)]);
+-        my $BCC_PATH = dir_choice("Borland C++ directory",
+-            [qw(c:/borland/bcc55), $bcc],
+-            [qw(bin/bcc32.exe)]);
 -
--    unless(-x $BCC_PATH)
--    {
--      carp "I can't find your Borland C++ installation.\nDBD::InterBase cannot build.\n";
--      exit 1;
--    }
+-        unless(-x $BCC_PATH)
+-        {
+-            carp "I can't find your Borland C++ installation.\nDBD::InterBase cannot build.\n";
+-            exit 1;
+-        }
+-
+-        my $ib_lib = dir_choice("InterBase lib directory", 
+-                            [$ib_lib_dir . "SDK\\lib", $ib_lib_dir . "lib"],
+-                            [qw(gds32.lib)]);
 -
--    my $bcc_inc = $BCC_PATH . "include"; 
--    $MakeParams{'CCFLAGS'}    = '-a4 -w- -DWIN32 -DNO_STRICT -DNDEBUG -D_CONSOLE -DHAVE_DES_FCRYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX';
--    $MakeParams{'OPTIMIZE'}   = "-O2";
--    $MakeParams{'INC'}       .= " -I\"$bcc_inc\"";
+-        my $bcc_inc = $BCC_PATH . "include";
+-        $MakeParams{'CCFLAGS'}    = '-a4 -w- -DWIN32 -DNO_STRICT -DNDEBUG -D_CONSOLE -DHAVE_DES_FCRYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX';
+-        $MakeParams{'OPTIMIZE'}   = "-O2";
+-        $MakeParams{'INC'}       .= " -I\"$bcc_inc\"";
 -
--    eval "
--	sub MY::const_loadlibs {
--	'
+-        eval "
+-    sub MY::const_loadlibs {
+-  '
 -LDLOADLIBS = \$(LIBC) import32.lib gds32.lib cw32.lib
--LDDLFLAGS = -L\"$ib_lib_dir\\lib\" -L\"$BCC_PATH\\lib\"
--	'
--	}
--	";
+-LDDLFLAGS = -L\"$ib_lib\" -L\"$BCC_PATH\\lib\"
+-  '
 -  }
--  # Will I need Cygwin rules too?
+-    ";
+-    }
+-    # Will I need Cygwin rules too?
 -}
 -elsif ($os eq 'solaris')
 -{
--  $MakeParams{'LIBS'} = '-lgdsmt -lm -lc'; 
+-    $MakeParams{'LIBS'} = '-lgdsmt -lm -lc';
 -}
 -elsif ($os eq 'linux')
 -{
--  # This is for both:
--  # o Free IB 4.0 for Red Hat Linux 4.2
--  # o Commercial IB 5.1.1 for Red Hat Linux 5.1
--  my $ib_lib = dir_choice("Interbase lib directory",
+-    # This is for both:
+-    # o Free IB 4.0 for Red Hat Linux 4.2
+-    # o Commercial IB 5.1.1 for Red Hat Linux 5.1
+-    my $ib_lib = dir_choice("InterBase lib directory",
 -    [qw(/usr/interbase/lib /opt/interbase/lib /usr/lib /usr/local/lib)],
 -    [qw(libgds.a libgds.so)]);
 -
--  $MakeParams{'LIBS'} = "-L$ib_lib -lgds -ldl ";
+-    $MakeParams{'LIBS'} = "-L$ib_lib -lgds -ldl ";
 -
--  # o Commercial IB 5.1.1 for Red Hat Linux 6.x
--  #   requires a compatibilty library to resolve
--  #   symbols such as _xstat that were removed
--  #   from glibc 2.1.  IB 5.6 and later don't need
--  #   this, but it doesn't hurt to list the library.
--  if (-f ('/lib/libNoVersion-2.1.2.so'))
+-    # o Commercial IB 5.1.1 for Red Hat Linux 6.x
+-    #   requires a compatibilty library to resolve
+-    #   symbols such as _xstat that were removed
+-    #   from glibc 2.1.  IB 5.6 and later don't need
+-    #   this, but it doesn't hurt to list the library.
+-    if (-f ('/lib/libNoVersion-2.1.2.so'))
 -  {
 -     $MakeParams{'LIBS'} .= ' -lNoVersion-2.1.2'
 -  }
 -}
 -elsif ($os eq 'freebsd')
 -{
--  my $ib_lib = dir_choice("Interbase lib directory",
--    [qw(/usr/interbase/lib /usr/lib)],
--    [qw(libgds.a libgds.so)]);
--  $MakeParams{'LIBS'} = "-L$ib_lib -lgds";
+-    my $ib_lib = dir_choice("InterBase lib directory",
+-        [qw(/usr/interbase/lib /usr/lib)],
+-        [qw(libgds.a libgds.so)]);
+-    $MakeParams{'LIBS'} = "-L$ib_lib -lgds";
 -}
 -elsif ($os eq 'hpux')
 -{
--  $MakeParams{'LIBS'} = '-lgds -ldld';
+-    $MakeParams{'LIBS'} = '-lgds -ldld';
 -}
 -elsif ($os eq 'sco')
 -{
--  # Uncomment this line if you use InterBase 4.0 for SCO OSR5:
--  # $LIBS = '-b elf -B dynamic -lgds -lsocket -lcrypt_i';
+-    # Uncomment this line if you use InterBase 4.0 for SCO OSR5:
+-    # $LIBS = '-b elf -B dynamic -lgds -lsocket -lcrypt_i';
 -
--  # Uncomment this line if you use InterBase 5.5 for SCO OSR5:
--  $MakeParams{'LIBS'} = '-lgds -lsocket -lcrypt_i -lc -lm';
+-    # Uncomment this line if you use InterBase 5.5 for SCO OSR5:
+-    $MakeParams{'LIBS'} = '-lgds -lsocket -lcrypt_i -lc -lm';
 -}
 -elsif ($os eq 'sunos')
 -{
--  $MakeParams{'LIBS'} = '-lgdslib -ldl';
+-    $MakeParams{'LIBS'} = '-lgdslib -ldl';
 -}
 -elsif ($os eq 'irix')
 -{
--  $MakeParams{'LIBS'} = '-lgds -lsun';
+-    $MakeParams{'LIBS'} = '-lgds -lsun';
 -}
 -elsif ($os eq 'aix')
 -{
--  $MakeParams{'LIBS'} = '-lgdsshr';
+-    $MakeParams{'LIBS'} = '-lgdsshr';
 -}
 -elsif ($os eq 'dgux')
 -{
--  $MakeParams{'LIBS'} = '-lgds -lgdsf -ldl -ldgc';
+-    $MakeParams{'LIBS'} = '-lgds -lgdsf -ldl -ldgc';
 -}
 -elsif ($os eq 'osf1')
 -{
--  $MakeParams{'LIBS'} = '-lgds';
+-    $MakeParams{'LIBS'} = '-lgds';
 -}
 -elsif ($os eq 'sysv')
 -{
@@ -414,14 +451,24 @@
 -}
 -else
 -{
--  carp "DBD::InterBase is not supported on platform $os.\n";
--  exit 1;
+-    carp "DBD::InterBase is not supported on platform $os.\n";
+-    exit 1;
 -}
 -
 -# create the test config file
 -make_test_conf();
 -
--# and last but not least write the makefile
+ # and last but not least write the makefile
  WriteMakefile(%MakeParams);
  
- package MY;
+@@ -482,10 +81,3 @@
+     return dbd_postamble(@_);
+ }
+ 
+-package main;
+-
+-# the data used to create the database creation script
+-__DATA__
+-CREATE DATABASE "__TESTDB__" user "__USER__" password "__PASS__";
+-
+-quit;