Submitted by: steve

Fix bundled pod2man.pl to handle alternative comment formats.
This commit is contained in:
Dr. Stephen Henson 2010-01-05 17:33:09 +00:00
parent 6e94156199
commit c079fde3f7

View file

@ -425,7 +425,7 @@ if ($name ne 'something') {
} }
next if /^=cut\b/; # DB_File and Net::Ping have =cut before NAME 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 next if /^=pod\b/; # It is OK to have =pod before NAME
next if /^=for\s+comment\b/; # It is OK to have =for comment before NAME next if /^=(for|begin|end)\s+comment\b/; # It is OK to have =for =begin or =end comment before NAME
die "$0: Invalid man page - 1st pod line is not NAME in $ARGV[0]\n" unless $lax; 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; die "$0: Invalid man page - no documentation in $ARGV[0]\n" unless $lax;