Delete PERL_USE_UNSAFE_INC from test environment
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Tue, 21 Mar 2017 15:53:32 +0000 (15:53 +0000)
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Sat, 25 Mar 2017 09:34:19 +0000 (09:34 +0000)
It intereferes with tests of @INC contents, and all core tests must work
without it.

t/TEST
t/harness
t/run/runenv.t

diff --git a/t/TEST b/t/TEST
index fc37118..6d842d0 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -82,6 +82,7 @@ my %temp_no_core =
 my @bad_env_vars = qw(
     PERL5LIB PERLLIB PERL5OPT
     PERL_YAML_BACKEND PERL_JSON_BACKEND
+    PERL_USE_UNSAFE_INC
 );
 
 for my $envname (@bad_env_vars) {
index b46582d..e06c3f8 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -34,6 +34,9 @@ if ($ARGV[0] && $ARGV[0] eq '-torture') {
 # which live dual lives on CPAN.
 $ENV{PERL_CORE} = 1;
 
+# All our tests should work without . in @INC
+delete $ENV{PERL_USE_UNSAFE_INC};
+
 my (@tests, $re);
 
 # [.VMS]TEST.COM calls harness with empty arguments, so clean-up @ARGV
index fe0d9cd..1b317ce 100644 (file)
@@ -22,6 +22,7 @@ my $FAILURE_CODE = 119;
 delete $ENV{PERLLIB};
 delete $ENV{PERL5LIB};
 delete $ENV{PERL5OPT};
+delete $ENV{PERL_USE_UNSAFE_INC};
 
 
 # Run perl with specified environment and arguments, return (STDOUT, STDERR)
@@ -33,6 +34,7 @@ sub runperl_and_capture {
   delete $ENV{PERLLIB};
   delete $ENV{PERL5LIB};
   delete $ENV{PERL5OPT};
+  delete $ENV{PERL_USE_UNSAFE_INC};
   my $pid = fork;
   return (0, "Couldn't fork: $!") unless defined $pid;   # failure
   if ($pid) {                   # parent