From 3ddf85033d56ff496bb5542fd7c1bc5500884dd0 Mon Sep 17 00:00:00 2001 From: "Dr. Stephen Henson" Date: Tue, 5 Jan 2010 17:32:54 +0000 Subject: [PATCH] PR: 2132 Submitted by: steve Fix bundled pod2man.pl to handle alternative comment formats. --- util/pod2man.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/util/pod2man.pl b/util/pod2man.pl index 546d1ec186..025d914f2e 100755 --- 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; -- 2.34.1