From: Steve Hay <SteveHay@planit.com>
Date: Fri, 15 Oct 2004 12:54:29 +0000 (+0000)
Subject: Make autodoc.pl write its output with UNIX style EOL's.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c333cfe784a03678e3e071720a240ed3993ae09b;p=p5sagit%2Fp5-mst-13.2.git

Make autodoc.pl write its output with UNIX style EOL's.

This saves the Win32 committer(s?) having to dos2unix the files
before committing.  Maybe Perforce's "LineEnd: share" suffices
anyway, but there's no harm in playing safe.

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

diff --git a/autodoc.pl b/autodoc.pl
index c87f114..5e7b3c2 100644
--- a/autodoc.pl
+++ b/autodoc.pl
@@ -33,6 +33,7 @@ sub walk_table (&@) {
     else {
 	safer_unlink $filename;
 	open F, ">$filename" or die "Can't open $filename: $!";
+	binmode F;
 	$F = \*F;
     }
     print $F $leader if $leader;
@@ -158,6 +159,7 @@ for $file (($MANIFEST =~ /^(\S+\.c)\t/gm), ($MANIFEST =~ /^(\S+\.h)\t/gm)) {
 safer_unlink "pod/perlapi.pod";
 open (DOC, ">pod/perlapi.pod") or
 	die "Can't create pod/perlapi.pod: $!\n";
+binmode DOC;
 
 walk_table {	# load documented functions into approriate hash
     if (@_ > 1) {
@@ -251,6 +253,7 @@ close(DOC) or die "Error closing pod/perlapi.pod: $!";
 safer_unlink "pod/perlintern.pod";
 open(GUTS, ">pod/perlintern.pod") or
 		die "Unable to create pod/perlintern.pod: $!\n";
+binmode GUTS;
 print GUTS <<'END';
 =head1 NAME