From a8aaa22cf27ba31be005a4b638b78d4105203ee9 Mon Sep 17 00:00:00 2001 From: Warren Hyde Date: Tue, 20 May 1997 15:33:29 +1200 Subject: 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 --- pod/pod2man.PL | 1 + 1 file changed, 1 insertion(+) (limited to 'pod/pod2man.PL') 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; -- cgit v1.2.1