diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-05-17 13:17:54 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-17 21:35:45 +0000 |
| commit | 57b1a898feef90fc19df54256136c678f3487b9a (patch) | |
| tree | eb4a34df55a9efa72471dfd3553566dbe03c8bf9 /lib/ExtUtils/Install.pm | |
| parent | 72699b0f2772b6d9c4affdf9e0a3a501db463332 (diff) | |
| download | perl-57b1a898feef90fc19df54256136c678f3487b9a.tar.gz | |
ExtUtils::MakeMaker 5.92_01 -> 5.94_02
Message-ID: <20020517211754.GK13131@ool-18b93024.dyn.optonline.net>
p4raw-id: //depot/perl@16663
Diffstat (limited to 'lib/ExtUtils/Install.pm')
| -rw-r--r-- | lib/ExtUtils/Install.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/ExtUtils/Install.pm b/lib/ExtUtils/Install.pm index 22a4bbfca3..b8fb4e3725 100644 --- a/lib/ExtUtils/Install.pm +++ b/lib/ExtUtils/Install.pm @@ -1,7 +1,7 @@ package ExtUtils::Install; -use 5.006; -our(@ISA, @EXPORT, $VERSION); +use 5.00503; +use vars qw(@ISA @EXPORT $VERSION); $VERSION = 1.29; use Exporter; @@ -263,15 +263,15 @@ sub inc_uninstall { sub run_filter { my ($cmd, $src, $dest) = @_; - open(my $CMD, "|$cmd >$dest") || die "Cannot fork: $!"; - open(my $SRC, $src) || die "Cannot open $src: $!"; + open(CMD, "|$cmd >$dest") || die "Cannot fork: $!"; + open(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 { |