From: Steve Hay <SteveHay@planit.com>
Date: Mon, 4 Jul 2005 08:10:27 +0000 (+0000)
Subject: Stop reentr.pl changing EOL on the files it writes on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0eb6355a4410699750ec3d1b3a23891052a0ad29;p=p5sagit%2Fp5-mst-13.2.git

Stop reentr.pl changing EOL on the files it writes on Win32

p4raw-id: //depot/perl@25059
---

diff --git a/reentr.pl b/reentr.pl
index cdce54e..e1cee6f 100644
--- a/reentr.pl
+++ b/reentr.pl
@@ -42,6 +42,7 @@ my %map = (
 
 safer_unlink 'reentr.h';
 die "reentr.h: $!" unless open(H, ">reentr.h");
+binmode H;
 select H;
 print <<EOF;
 /* -*- buffer-read-only: t -*-
@@ -183,6 +184,7 @@ while (<DATA>) { # Read in the protypes.
 
     # If given the -U option open up the metaconfig unit for this function.
     if ($opts{U} && open(U, ">d_${func}_r.U"))  {
+    	binmode U;
 	select U;
     }
 
@@ -767,6 +769,7 @@ close(H);
 
 safer_unlink 'reentr.c';
 die "reentr.c: $!" unless open(C, ">reentr.c");
+binmode C;
 select C;
 print <<EOF;
 /* -*- buffer-read-only: t -*-