diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-07-03 19:35:09 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-03 18:56:26 +0000 |
| commit | a19106168e3a7e2ab288aa73118f8efee5d56e2b (patch) | |
| tree | c7fbe9151968f0cf6f73f6afff1e3dfa56cd046d | |
| parent | 4b12b7f5aaa10e96c6a01cd84b8e2ba8348ae296 (diff) | |
| download | perl-a19106168e3a7e2ab288aa73118f8efee5d56e2b.tar.gz | |
Re: randomly untainting?
Message-Id: <20030703173509.0c007f0f.rgarciasuarez@free.fr>
p4raw-id: //depot/perl@19964
| -rw-r--r-- | t/TestInit.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/TestInit.pm b/t/TestInit.pm index b90e150e56..d06f7255ae 100644 --- a/t/TestInit.pm +++ b/t/TestInit.pm @@ -17,7 +17,10 @@ package TestInit; chdir 't' if -d 't'; @INC = '../lib'; -$ENV{PERL_CORE} = 1; + +# Don't interfere with the taintedness of %ENV, this could perturbate tests +$ENV{PERL_CORE} = 1 unless ${^TAINT}; + $0 =~ s/\.dp$//; # for the test.deparse make target 1; |