From: Ulrich Pfeifer <pfeifer@charly.informatik.uni-dortmund.de>
Date: Mon, 10 Feb 1997 17:38:45 +0000 (+0100)
Subject: pod2man: missing '-' in name section shouldn't be fatal
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=70601ba7efda70ba5ebb1437a5143452aa1d6802;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/pod/pod2man.PL b/pod/pod2man.PL
index 095b520..934d525 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