debugging info

svn path=/bioperl-run/trunk/; revision=13650
bioperl · Sep 30, 2005 · e6fd78e · e6fd78e
1 parent f923619
commit e6fd78e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/t/Genewise.t b/t/Genewise.t
@@ -24,14 +24,14 @@ END {
 }
 
 ok(1);
-my $verbose = -1;
+my $verbose = $ENV{BIOPERLDEBUG} ? 1 : -1;
 my @params = ('-verbose' => $verbose, 
 	      'silent' => 1, 
 	      'quiet' => 1);
 
 my  $factory = Bio::Tools::Run::Genewise->new(@params);
 my $version = $factory->version;
-warn("version is $version\n");
+warn("version is $version\n") if $verbose > 0;
 ok $factory->isa('Bio::Tools::Run::Genewise');
 unless ($factory->executable) {
    warn("Genewise program not found. Skipping tests $Test::ntest to $NTESTS.\n");