Gentoo Websites Logo
Go to: Gentoo Home Documentation Forums Lists Bugs Planet Store Wiki Get Gentoo!
View | Details | Raw Unified | Return to bug 22202
Collapse All | Expand All

(-)bioperl-1.2.1/Makefile.PL.orig (-34 / +5 lines)
Lines 83-90 Link Here
83
# Prompt user for BioDBGFF stuff
83
# Prompt user for BioDBGFF stuff
84
#
84
#
85
85
86
if(  eval { require DBI } && grep {/mysql/} DBI->available_drivers) {
87
  my $proceed = prompt("Do you want to run the BioDBGFF tests (requires a mysql database) y/n",'n');
88
  if( $proceed =~ /^[yY]/) {
86
  if( $proceed =~ /^[yY]/) {
89
    my $cfg = {dbd_driver => 'mysql'};
87
    my $cfg = {dbd_driver => 'mysql'};
90
    GFFQueryDb($cfg,{'prompt'=>1,'verbose'=>1});
88
    GFFQueryDb($cfg,{'prompt'=>1,'verbose'=>1});
Lines 99-105 Link Here
99
      unlink "t/do_biodbgff.tests";
97
      unlink "t/do_biodbgff.tests";
100
    }
98
    }
101
  }
99
  }
102
}
103
100
104
101
105
############################################################################
102
############################################################################
Lines 124-160 Link Here
124
  my $d = lc $driver;
121
  my $d = lc $driver;
125
  my $prompt = $options->{'prompt'};
122
  my $prompt = $options->{'prompt'};
126
123
127
  my $test_db =  exists($options->{"$d-test-db"}) ?
124
  $cfg->{'test_db'}   = "test";
128
    $options->{"$d-test-db"} : ($cfg->{'test_db'} || 'test');
125
  $cfg->{'test_host'} = "localhost";
129
  $test_db = prompt
126
  $cfg->{'test_user'} = undef;
130
    ("Which database should I use for testing the $db drivers?",
127
  $cfg->{'test_pass'} = undef;
131
     $test_db) if $prompt;
128
132
133
  my $test_host = exists($options->{"$d-test-host"}) ?
134
    $options->{"$d-test-host"} : ($cfg->{'test_host'} || 'localhost');
135
  $test_host = prompt
136
    ("On which host is database $test_db running (hostname, ip address or host:port)", $test_host) if $prompt;
137
138
  my($test_user, $test_pass);
139
140
  $test_user = exists($options->{"$d-test-user"}) ?
141
    $options->{"$d-test-user"} : ($cfg->{'test_user'} || "undef");
142
  $test_user = prompt
143
    ("User name for connecting to database $test_db?", $test_user)
144
      if $prompt;
145
  $test_user = undef if $test_user eq 'undef';
146
147
  $test_pass = exists($options->{"$d-test-pass"}) ?
148
    $options->{"$d-test-pass"} : ($cfg->{'test_pass'} || "undef");
149
  $test_pass = prompt
150
    ("Password for connecting to database $test_db?", $test_pass)
151
      if $prompt;
152
  $test_pass = undef if $test_pass eq 'undef';
153
154
  $cfg->{'test_db'}   = $test_db;
155
  $cfg->{'test_host'} = $test_host;
156
  $cfg->{'test_user'} = $test_user;
157
  $cfg->{'test_pass'} = $test_pass;
158
  if ($test_host eq 'undef'  ||  $test_host eq 'localhost') {
129
  if ($test_host eq 'undef'  ||  $test_host eq 'localhost') {
159
    $test_host = '';
130
    $test_host = '';
160
  }
131
  }

Return to bug 22202