diff options
| author | Ulrich Pfeifer <pfeifer@charly.informatik.uni-dortmund.de> | 1997-02-10 18:38:45 +0100 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-02-18 13:22:00 +1200 |
| commit | 70601ba7efda70ba5ebb1437a5143452aa1d6802 (patch) | |
| tree | 0b0eb512c4f253a81f1e8df2a90acf9f4570feb0 | |
| parent | 9fc9f3bf975c5bbf159284dbf9cf1fbea37a5c7b (diff) | |
| download | perl-70601ba7efda70ba5ebb1437a5143452aa1d6802.tar.gz | |
pod2man: missing '-' in name section shouldn't be fatal
Subject: pod2man: missing '-' in name section is fatal
p5p-msgid: <yfmzpxcimsa.fsf@ls6.informatik.uni-dortmund.de>
| -rw-r--r-- | pod/pod2man.PL | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/pod/pod2man.PL b/pod/pod2man.PL index 095b52018d..934d525cd8 100644 --- a/pod/pod2man.PL +++ b/pod/pod2man.PL @@ -404,8 +404,9 @@ if ($name ne 'something') { unless (/\s*-+\s+/) { $oops++; warn "$0: Improper man page - no dash in NAME header in paragraph $. of $ARGV[0]\n" - } - %namedesc = split /\s+-+\s+/; + } else { + %namedesc = split /\s+-+\s+/; + } last FCHECK; } next if /^=cut\b/; # DB_File and Net::Ping have =cut before NAME |