From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 14 Sep 2001 22:22:58 +0000 (+0000)
Subject: Integrate change #12024 from maintperl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c366adb4d8e96138e96920f4a327296016a696e0;p=p5sagit%2Fp5-mst-13.2.git

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..)
---

diff --git a/lib/ExtUtils/Install.pm b/lib/ExtUtils/Install.pm
index 0a1b549..8613133 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 {