Change 12025 by jhi@alpha on 2001/09/14 22:22:58
Integrate change #12024 from maintperl
(a local() precedence bug)
Affected files ...
... //depot/perl/lib/ExtUtils/Install.pm#27 integrate
Differences ...
==== //depot/perl/lib/ExtUtils/Install.pm#27 (text) ====
Index: perl/lib/ExtUtils/Install.pm
--- perl/lib/ExtUtils/Install.pm.~1~ Fri Sep 14 16:30:05 2001
+++ perl/lib/ExtUtils/Install.pm Fri Sep 14 16:30: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.
