Merge pull request #521 from haarg/add-dot-to-inc

set PERL_USE_UNSAFE_INC so . is included in @inc
miyagawa · Jan 31, 2017 · ae585f9 · ae585f9
2 parents 3f520cf + f3baae3
commit ae585f9
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/lib/App/cpanminus/script.pm b/lib/App/cpanminus/script.pm
@@ -1264,6 +1264,9 @@ sub configure {
         $ENV{PERL_MB_OPT} .= " --pureperl-only";
     }
 
+    local $ENV{PERL_USE_UNSAFE_INC} = 1
+        unless exists $ENV{PERL_USE_UNSAFE_INC};
+
     $cmd = $self->append_args($cmd, 'configure') if $depth == 0;
 
     local $self->{verbose} = $self->{verbose} || $self->{interactive};
@@ -1275,6 +1278,9 @@ sub build {
 
     local $ENV{PERL_MM_USE_DEFAULT} = !$self->{interactive};
 
+    local $ENV{PERL_USE_UNSAFE_INC} = 1
+        unless exists $ENV{PERL_USE_UNSAFE_INC};
+
     $cmd = $self->append_args($cmd, 'build') if $depth == 0;
 
     return 1 if $self->run_timeout($cmd, $self->{build_timeout});
@@ -1299,6 +1305,9 @@ sub test {
 
     $cmd = $self->append_args($cmd, 'test') if $depth == 0;
 
+    local $ENV{PERL_USE_UNSAFE_INC} = 1
+        unless exists $ENV{PERL_USE_UNSAFE_INC};
+
     return 1 if $self->run_timeout($cmd, $self->{test_timeout});
     if ($self->{force}) {
         $self->diag_fail("Testing $distname failed but installing it anyway.");
@@ -1323,6 +1332,9 @@ sub install {
         return 1;
     }
 
+    local $ENV{PERL_USE_UNSAFE_INC} = 1
+        unless exists $ENV{PERL_USE_UNSAFE_INC};
+
     if ($self->{sudo}) {
         unshift @$cmd, "sudo";
     }