[Bioperl-guts-l] [14537] bioperl-live/trunk/Build.PL: revert last commit (good catch Sendu)

[Christopher John Fields]

Revision: 14537
Author:   cjfields
Date:     2008-02-22 12:18:35 -0500 (Fri, 22 Feb 2008)

Log Message:
-----------
revert last commit (good catch Sendu)

Modified Paths:
--------------
    bioperl-live/trunk/Build.PL

Modified: bioperl-live/trunk/Build.PL
===================================================================
--- bioperl-live/trunk/Build.PL	2008-02-22 16:10:09 UTC (rev 14536)
+++ bioperl-live/trunk/Build.PL	2008-02-22 17:18:35 UTC (rev 14537)
@@ -17,10 +17,6 @@
 
 my $mysql_ok = 0;
 
-my $test_biodbgff = test_biodbgff();
-my $test_db_sf = test_db_sf();
-my $test_internet = &ModuleBuildBioperl::test_internet();
-
 # Set up the ModuleBuildBioperl object
 my $build = ModuleBuildBioperl->new(
     module_name         => 'Bio',
@@ -91,17 +87,17 @@
                                                         description      => "BioDBGFF database tests (will need to answer questions before really enabling)",
                                                         feature_requires => { 'DBI' => 0 },
                                                         excludes_os      => ['mswin'],
-                                                        test             => $test_biodbgff # ModuleBuildBioperl unique requirement that after everything else succeeds, supplied code ref must also return undef
+                                                        test             => \&test_biodbgff # ModuleBuildBioperl unique requirement that after everything else succeeds, supplied code ref must also return undef
                                                      },
                             BioDBSeqFeature_mysql => {
                                                         description      => "MySQL tests for Bio::DB::SeqFeature::Store",
                                                         feature_requires => { 'DBI' => 0, 'DBD::mysql' => 0 },
-                                                        test             => $test_db_sf
+                                                        test             => \&test_db_sf
                                                      },
                             Network               => {
                                                         description => "Enable tests that need an internet connection",
                                                         requires    => { 'LWP::UserAgent' => 0 },
-                                                        test        => $test_internet
+                                                        test        => \&ModuleBuildBioperl::test_internet
                                                      }
                            },
     dynamic_config      => 1,