From a19106168e3a7e2ab288aa73118f8efee5d56e2b Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 3 Jul 2003 19:35:09 +0200 Subject: Re: randomly untainting? Message-Id: <20030703173509.0c007f0f.rgarciasuarez@free.fr> p4raw-id: //depot/perl@19964 --- t/TestInit.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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; -- cgit v1.2.1