Change 12024 by gsar@rake on 2001/09/14 22:11:06
fix local() precedence bug in change#8311, came into maint-5.6 as
change#8642
Affected files ...
... //depot/maint-5.6/perl/lib/ExtUtils/Install.pm#5 edit
Differences ...
==== //depot/maint-5.6/perl/lib/ExtUtils/Install.pm#5 (text) ====
Index: perl/lib/ExtUtils/Install.pm
--- perl/lib/ExtUtils/Install.pm.~1~ Fri Sep 14 16:15:05 2001
+++ perl/lib/ExtUtils/Install.pm Fri Sep 14 16:15:05 2001
@@ -263,16 +263,15 @@
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 {
End of Patch.
