In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/a2d3de138935fbe8f4190ee9176b8fdd812a91d5?hp=0784aae0d7d156b848a785db9f8ed8ce6ada8166>
- Log ----------------------------------------------------------------- commit a2d3de138935fbe8f4190ee9176b8fdd812a91d5 Author: Nicholas Clark <[email protected]> Date: Fri Jul 9 10:42:41 2010 +0100 In t/harness, clear PERL5LIB, PERLLIB, PERL5OPT as t/TEST does. In fact, as t/harness requires t/TEST, simply get t/TEST to do it for t/harness too. ----------------------------------------------------------------------- Summary of changes: t/TEST | 26 +++++++++++++------------- 1 files changed, 13 insertions(+), 13 deletions(-) diff --git a/t/TEST b/t/TEST index d4bf64c..92c9bf5 100755 --- a/t/TEST +++ b/t/TEST @@ -86,19 +86,6 @@ my %temp_no_core = '../cpan/Unicode-Normalize' => 1, ); -if ($::do_nothing) { - return 1; -} - -# Location to put the Valgrind log. -our $Valgrind_Log; - -$| = 1; - -# for testing TEST only -#BEGIN { require '../lib/strict.pm'; "strict"->import() }; -#BEGIN { require '../lib/warnings.pm'; "warnings"->import() }; - # delete env vars that may influence the results # but allow override via *_TEST env var if wanted # (e.g. PERL5OPT_TEST=-d:NYTProf) @@ -113,6 +100,19 @@ for my $envname (qw(PERL5LIB PERLLIB PERL5OPT)) { } } +if ($::do_nothing) { + return 1; +} + +# Location to put the Valgrind log. +our $Valgrind_Log; + +$| = 1; + +# for testing TEST only +#BEGIN { require '../lib/strict.pm'; "strict"->import() }; +#BEGIN { require '../lib/warnings.pm'; "warnings"->import() }; + # remove empty elements due to insertion of empty symbols via "''p1'" syntax @ARGV = grep($_,@ARGV) if $^O eq 'VMS'; our $show_elapsed_time = $ENV{HARNESS_TIMER} || 0; -- Perl5 Master Repository
