diff options
| author | Warren Hyde <whyde@pezz.sps.mot.com> | 1997-05-20 15:33:29 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
| commit | a8aaa22cf27ba31be005a4b638b78d4105203ee9 (patch) | |
| tree | a726196a00ecaa8d28796105fb7a964bc0ccf259 /pod | |
| parent | ca023ceb228b064c65630ce565435e433344bfd5 (diff) | |
| download | perl-a8aaa22cf27ba31be005a4b638b78d4105203ee9.tar.gz | |
pod2man gags if "=pod" is before "=head1 NAME"
This is strictly a pod2man issue:
when using =pod and =cut to intermingle docs into a perl program,
pod2man does not allow the "=pod" directive to appear before the
"=head1 NAME" line, and assumes that your pod manpage is improper.
This bug was a problem in 5.003 as well, and here's the patch...
p5p-msgid: 9705212115.AA21730@pezz.sps.mot.com
Diffstat (limited to 'pod')
| -rw-r--r-- | pod/pod2man.PL | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pod/pod2man.PL b/pod/pod2man.PL index b0f8b1b36a..fb30a67ab3 100644 --- a/pod/pod2man.PL +++ b/pod/pod2man.PL @@ -444,6 +444,7 @@ if ($name ne 'something') { last FCHECK; } next if /^=cut\b/; # DB_File and Net::Ping have =cut before NAME + next if /^=pod\b/; # It is OK to have =pod before NAME die "$0: Invalid man page - 1st pod line is not NAME in $ARGV[0]\n" unless $lax; } die "$0: Invalid man page - no documentation in $ARGV[0]\n" unless $lax; |