Permalink
Browse files

Always empty $ENV{PATH} before open2

  • Loading branch information...
1 parent 60d9f82 commit 7f7654e3e2802ecd7a52c0e919d20c7ffebb72e2 @Leont committed Nov 1, 2013
Showing with 2 additions and 1 deletion.
  1. +1 −0 Changes
  2. +1 −1 lib/Devel/FindPerl.pm
View
@@ -1,6 +1,7 @@
Revision history for Devel-FindPerl
{{$NEXT}}
+ Always empty $ENV{PATH} before open2
Append executable extension to expected tainted path
0.007 2013-10-24 14:32:54 Europe/Amsterdam
View
@@ -114,7 +114,7 @@ sub perl_is_same {
push @cmd, '-I' . catdir(dirname($perl), 'lib') if $ENV{PERL_CORE};
push @cmd, qw(-MConfig=myconfig -e print -e myconfig);
- local $ENV{PATH} = '' if tainted($ENV{PATH});
+ local $ENV{PATH} = '';
my $pid = open2(my($in, $out), @cmd);
binmode $in, ':crlf' if $^O eq 'MSWin32';
my $ret = do { local $/; <$in> };

0 comments on commit 7f7654e

Please sign in to comment.