ExtUtils/MM_Unix.pm (fixin): do not clobber $/

Message-ID: <20070224123858.GA11434@localhost.localdomain>

p4raw-id: //depot/perl@30390

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 22cea82..d56dded 100644 (file)
--- 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;