PR: 2132

Submitted by: steve

Fix bundled pod2man.pl to handle alternative comment formats.

diff --git a/util/pod2man.pl b/util/pod2man.pl
index 546d1ec18600fcee81331cacbb82c77e84d1962d..025d914f2e8be2f8deef2f3b1abd9166056be811 100755 (executable)
--- a/util/pod2man.pl
+++ b/util/pod2man.pl
@@ -425,7 +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
+           next if /^=(for|begin|end)\s+comment\b/;  # It is OK to have =for =begin or =end 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;