diff options
| -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 |