diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-14 22:22:58 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-14 22:22:58 +0000 |
| commit | c366adb4d8e96138e96920f4a327296016a696e0 (patch) | |
| tree | 3bd665eb256c56a66f8fa1571b794f0c7d00a20e /lib/ExtUtils/Install.pm | |
| parent | aa6796d9dfd451c7aae1c1b37fcf5d9ea6ff55f4 (diff) | |
| download | perl-c366adb4d8e96138e96920f4a327296016a696e0.tar.gz | |
Integrate change #12024 from maintperl
(a local() precedence bug)
p4raw-link: @12024 on //depot/maint-5.6/perl: 1076fa75f4e1273e689e52f8c683e00d5f9f011c
p4raw-id: //depot/perl@12025
p4raw-integrated: from //depot/maint-5.6/perl@12023 'copy in'
lib/ExtUtils/Install.pm (@9706..)
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 { |