This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ExtUtils/MM_Unix.pm (fixin): do not clobber $/
authorAlexey Tourbin <at@altlinux.ru>
Sat, 24 Feb 2007 15:38:58 +0000 (18:38 +0300)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 24 Feb 2007 15:48:49 +0000 (15:48 +0000)
Message-ID: <20070224123858.GA11434@localhost.localdomain>

p4raw-id: //depot/perl@30390

lib/ExtUtils/MM_Unix.pm

index 22cea82..d56dded 100644 (file)
@@ -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;