From: Warren Hyde <whyde@pezz.sps.mot.com>
Date: Tue, 20 May 1997 03:33:29 +0000 (+1200)
Subject: pod2man gags if "=pod" is before "=head1 NAME"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a8aaa22cf27ba31be005a4b638b78d4105203ee9;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;