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

diff --git a/pod/pod2man.PL b/pod/pod2man.PL
index b0f8b1b..fb30a67 100644 (file)
--- 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;