This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Stop reentr.pl changing EOL on the files it writes on Win32
authorSteve Hay <SteveHay@planit.com>
Mon, 4 Jul 2005 08:10:27 +0000 (08:10 +0000)
committerSteve Hay <SteveHay@planit.com>
Mon, 4 Jul 2005 08:10:27 +0000 (08:10 +0000)
p4raw-id: //depot/perl@25059

reentr.pl

index cdce54e..e1cee6f 100644 (file)
--- 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 -*-