pod2man: missing '-' in name section shouldn't be fatal

[p5sagit/p5-mst-13.2.git] / pod / pod2man.PL

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