Permalink
Browse files

Fix other environmental variables in tainted mode.

I screwed up, reading is difficult.
  • Loading branch information...
Leont committed Nov 19, 2013
1 parent b20b452 commit d5d4cb17a339a7a48ec6d8be7edd6a5ae1c6eeda
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}}
+ Fix other environmental variables in tainted mode.
0.010 2013-11-13 23:13:15 Europe/Amsterdam
Add a non-empty PATH, to make *bsd happy
View
@@ -111,7 +111,7 @@ sub perl_is_same {
push @cmd, qw(-MConfig=myconfig -e print -e myconfig);
- local $ENV{PATH} = join $Config{path_sep}, qw{/usr/bin /bin};
+ local @ENV{qw/PATH IFS CDPATH ENV BASH_ENV/} = ('') x 5;
my $pid = open2(my($in, $out), @cmd);
binmode $in, ':crlf' if $^O eq 'MSWin32';
my $ret = do { local $/; <$in> };

0 comments on commit d5d4cb1

Please sign in to comment.