diff options
Diffstat (limited to 'lib/ExtUtils/Install.pm')
| -rw-r--r-- | lib/ExtUtils/Install.pm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lib/ExtUtils/Install.pm b/lib/ExtUtils/Install.pm index 0a1b549801..86131332cb 100644 --- a/lib/ExtUtils/Install.pm +++ b/lib/ExtUtils/Install.pm @@ -263,16 +263,15 @@ sub inc_uninstall { sub run_filter { my ($cmd, $src, $dest) = @_; - local *SRC, *CMD; - open(CMD, "|$cmd >$dest") || die "Cannot fork: $!"; - open(SRC, $src) || die "Cannot open $src: $!"; + open(my $CMD, "|$cmd >$dest") || die "Cannot fork: $!"; + open(my $SRC, $src) || die "Cannot open $src: $!"; my $buf; my $sz = 1024; - while (my $len = sysread(SRC, $buf, $sz)) { - syswrite(CMD, $buf, $len); + while (my $len = sysread($SRC, $buf, $sz)) { + syswrite($CMD, $buf, $len); } - close SRC; - close CMD or die "Filter command '$cmd' failed for $src"; + close $SRC; + close $CMD or die "Filter command '$cmd' failed for $src"; } sub pm_to_blib { |