In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/2574563ed1cc89a9149d4a253b94199eab5bdf71?hp=6a158b577769363e3a34f3dcb7321a0e933d3353>
- Log -----------------------------------------------------------------
commit 2574563ed1cc89a9149d4a253b94199eab5bdf71
Author: Tim Bunce <tim.bu...@pobox.com>
Date: Tue Dec 15 23:04:11 2009 +0000
Allow override of PERL5OPT etc in t/TEST
-----------------------------------------------------------------------
Summary of changes:
t/TEST | 16 +++++++++++++---
1 files changed, 13 insertions(+), 3 deletions(-)
diff --git a/t/TEST b/t/TEST
index 6124c5d..205a8aa 100755
--- a/t/TEST
+++ b/t/TEST
@@ -99,9 +99,19 @@ $| = 1;
#BEGIN { require '../lib/strict.pm'; "strict"->import() };
#BEGIN { require '../lib/warnings.pm'; "warnings"->import() };
-delete $ENV{PERL5LIB};
-delete $ENV{PERLLIB};
-delete $ENV{PERL5OPT};
+# delete env vars that may influence the results
+# but allow override via *_TEST env var if wanted
+# (e.g. PERL5OPT_TEST=-d:NYTProf)
+for my $envname (qw(PERL5LIB PERLLIB PERL5OPT)) {
+ my $override = $ENV{"${envname}_TEST"};
+ if (defined $override) {
+ warn "$0: $envname=$override\n";
+ $ENV{$envname} = $override;
+ }
+ else {
+ delete $ENV{$envname};
+ }
+}
# remove empty elements due to insertion of empty symbols via "''p1'" syntax
@ARGV = grep($_,@ARGV) if $^O eq 'VMS';
--
Perl5 Master Repository
