From: Tim Bunce <Tim.Bunce@pobox.com>
Date: Tue, 15 Dec 2009 23:04:11 +0000 (+0000)
Subject: Allow override of PERL5OPT etc in t/TEST
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2574563ed1cc89a9149d4a253b94199eab5bdf71;p=p5sagit%2Fp5-mst-13.2.git

Allow override of PERL5OPT etc in t/TEST
---

diff --git a/t/TEST b/t/TEST
index 6124c5d..205a8aab 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';