diff options
| author | Steve Hay <SteveHay@planit.com> | 2004-10-15 12:54:29 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2004-10-15 12:54:29 +0000 |
| commit | c333cfe784a03678e3e071720a240ed3993ae09b (patch) | |
| tree | 735e0c0c593e154670d0282a3bd2f71eb4f99a24 /autodoc.pl | |
| parent | c015c5e45f866671c406f740a09e67f5544ed21c (diff) | |
| download | perl-c333cfe784a03678e3e071720a240ed3993ae09b.tar.gz | |
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
Diffstat (limited to 'autodoc.pl')
| -rw-r--r-- | autodoc.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/autodoc.pl b/autodoc.pl index c87f114fc8..5e7b3c289d 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 |