From: Alexey Tourbin <at@altlinux.ru>
Date: Sat, 24 Feb 2007 15:38:58 +0000 (+0300)
Subject: ExtUtils/MM_Unix.pm (fixin): do not clobber $/
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=51b41b597bceacdcd304adcebd086f4503b4f036;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;