diff options
author | Alexey Tourbin <at@altlinux.ru> | 2007-02-24 18:38:58 +0300 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-02-24 15:48:49 +0000 |
commit | 51b41b597bceacdcd304adcebd086f4503b4f036 (patch) | |
tree | 18e332e8e1214f353ea3a5a69a95def4eeb94744 /lib/ExtUtils/MM_Unix.pm | |
parent | b2166d27277cfef31200203f778dabd2056ccbc3 (diff) | |
download | perl-51b41b597bceacdcd304adcebd086f4503b4f036.tar.gz |
ExtUtils/MM_Unix.pm (fixin): do not clobber $/
Message-ID: <20070224123858.GA11434@localhost.localdomain>
p4raw-id: //depot/perl@30390
Diffstat (limited to 'lib/ExtUtils/MM_Unix.pm')
-rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index 22cea821f4..d56ddedb9b 100644 --- a/lib/ExtUtils/MM_Unix.pm +++ b/lib/ExtUtils/MM_Unix.pm @@ -18,7 +18,7 @@ use vars qw($VERSION @ISA use ExtUtils::MakeMaker qw($Verbose neatvalue); -$VERSION = '1.51_01'; +$VERSION = '1.51_02'; require ExtUtils::MM_Any; @ISA = qw(ExtUtils::MM_Any); @@ -1129,7 +1129,7 @@ eval 'exec $interpreter $arg -S \$0 \${1+"\$\@"}' # Print out the new #! line (or equivalent). local $\; - undef $/; + local $/; print FIXOUT $shb, <FIXIN>; close FIXIN; close FIXOUT; |