diff options
| -rw-r--r-- | pod/pod2man.PL | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/pod/pod2man.PL b/pod/pod2man.PL index 88ce73f126..bd4dd418fd 100644 --- a/pod/pod2man.PL +++ b/pod/pod2man.PL @@ -416,9 +416,16 @@ if ($name ne 'something') { unless (/\s*-+\s+/) { $oops++; warn "$0: Improper man page - no dash in NAME header in paragraph $. of $ARGV[0]\n" - } else { - %namedesc = split /\s+-+\s+/; - } + } else { + my @n = split /\s+-+\s+/; + if (@n != 2) { + $oops++; + warn "$0: Improper man page - malformed NAME header in paragraph $. of $ARGV[0]\n" + } + else { + %namedesc = @n; + } + } last FCHECK; } next if /^=cut\b/; # DB_File and Net::Ping have =cut before NAME |