Have pod2man.pl accept '=for comment ...' before the '=head1 NAME' line.
PR: 1113
This commit is contained in:
parent
edb0600583
commit
306aae6cee
1 changed files with 1 additions and 0 deletions
|
@ -425,6 +425,7 @@ if ($name ne 'something') {
|
|||
}
|
||||
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 /^=for\s+comment\b/; # It is OK to have =for 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 - no documentation in $ARGV[0]\n" unless $lax;
|
||||
|
|
Loading…
Reference in a new issue