diff options
| -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; |