From 43b30bf2c8cc1a91625c6bb087aa4230f68703d8 Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Sat, 18 Jun 2005 04:27:11 +0000 Subject: [PATCH] Have pod2man.pl accept '=for comment ...' before the '=head1 NAME' line. PR: 1113 --- util/pod2man.pl | 1 + 1 file changed, 1 insertion(+) diff --git a/util/pod2man.pl b/util/pod2man.pl index 657e4e264e..546d1ec186 100755 --- a/util/pod2man.pl +++ b/util/pod2man.pl @@ -425,6 +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 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.25.1