diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-01-09 21:34:50 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-01-09 21:34:50 +0000 |
| commit | 56a0c3328a732586fccec16bf813d122fa89f510 (patch) | |
| tree | 33fa3e891cd4906d602644bca098593e12f935cd /autodoc.pl | |
| parent | d6480c9dbd3617de293e20fa547d2bf23327a027 (diff) | |
| download | perl-56a0c3328a732586fccec16bf813d122fa89f510.tar.gz | |
Make autodoc.pl strict clean.
p4raw-id: //depot/perl@29738
Diffstat (limited to 'autodoc.pl')
| -rw-r--r-- | autodoc.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/autodoc.pl b/autodoc.pl index e801c6cd46..5317bc6da1 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -8,6 +8,7 @@ BEGIN { require 'regen_lib.pl'; } +use strict; # # See database of global and static function prototypes in embed.fnc @@ -218,7 +219,7 @@ for (sort keys %docfuncs) { warn "Unable to place $_!\n"; } -readonly_header(DOC); +readonly_header(\*DOC); print DOC <<'_EOB_'; =head1 NAME @@ -277,7 +278,7 @@ perlguts(1), perlxs(1), perlxstut(1), perlintern(1) _EOE_ -readonly_footer(DOC); +readonly_footer(\*DOC); close(DOC) or die "Error closing pod/perlapi.pod: $!"; @@ -285,7 +286,7 @@ safer_unlink "pod/perlintern.pod"; open(GUTS, ">pod/perlintern.pod") or die "Unable to create pod/perlintern.pod: $!\n"; binmode GUTS; -readonly_header(GUTS); +readonly_header(\*GUTS); print GUTS <<'END'; =head1 NAME @@ -324,6 +325,6 @@ document their functions. perlguts(1), perlapi(1) END -readonly_footer(GUTS); +readonly_footer(\*GUTS); close GUTS or die "Error closing pod/perlintern.pod: $!"; |