[patch] biodbgff-enable-1.2.1.patch

biodbgff-enable-1.2.1.patch (text/plain), 2.14 KB, created by Gontran Zepeda on 2003-06-04 08:35:12 UTC

--- bioperl-1.2.1/Makefile.PL.orig	2003-05-29 13:47:54.000000000 +0100
+++ bioperl-1.2.1/Makefile.PL	2003-05-29 13:49:30.000000000 +0100
@@ -83,8 +83,6 @@
 # Prompt user for BioDBGFF stuff
 #
 
-if(  eval { require DBI } && grep {/mysql/} DBI->available_drivers) {
-  my $proceed = prompt("Do you want to run the BioDBGFF tests (requires a mysql database) y/n",'n');
   if( $proceed =~ /^[yY]/) {
     my $cfg = {dbd_driver => 'mysql'};
     GFFQueryDb($cfg,{'prompt'=>1,'verbose'=>1});
@@ -99,7 +97,6 @@
       unlink "t/do_biodbgff.tests";
     }
   }
-}
 
 
 ############################################################################
@@ -124,37 +121,11 @@
   my $d = lc $driver;
   my $prompt = $options->{'prompt'};
 
-  my $test_db =  exists($options->{"$d-test-db"}) ?
-    $options->{"$d-test-db"} : ($cfg->{'test_db'} || 'test');
-  $test_db = prompt
-    ("Which database should I use for testing the $db drivers?",
-     $test_db) if $prompt;
-
-  my $test_host = exists($options->{"$d-test-host"}) ?
-    $options->{"$d-test-host"} : ($cfg->{'test_host'} || 'localhost');
-  $test_host = prompt
-    ("On which host is database $test_db running (hostname, ip address or host:port)", $test_host) if $prompt;
-
-  my($test_user, $test_pass);
-
-  $test_user = exists($options->{"$d-test-user"}) ?
-    $options->{"$d-test-user"} : ($cfg->{'test_user'} || "undef");
-  $test_user = prompt
-    ("User name for connecting to database $test_db?", $test_user)
-      if $prompt;
-  $test_user = undef if $test_user eq 'undef';
-
-  $test_pass = exists($options->{"$d-test-pass"}) ?
-    $options->{"$d-test-pass"} : ($cfg->{'test_pass'} || "undef");
-  $test_pass = prompt
-    ("Password for connecting to database $test_db?", $test_pass)
-      if $prompt;
-  $test_pass = undef if $test_pass eq 'undef';
-
-  $cfg->{'test_db'}   = $test_db;
-  $cfg->{'test_host'} = $test_host;
-  $cfg->{'test_user'} = $test_user;
-  $cfg->{'test_pass'} = $test_pass;
+  $cfg->{'test_db'}   = "test";
+  $cfg->{'test_host'} = "localhost";
+  $cfg->{'test_user'} = undef;
+  $cfg->{'test_pass'} = undef;
+
   if ($test_host eq 'undef'  ||  $test_host eq 'localhost') {
     $test_host = '';
   }