From: Richard Levitte <levitte@openssl.org>
Date: Sat, 18 Jun 2005 04:27:15 +0000 (+0000)
Subject: Have pod2man.pl accept '=for comment ...' before the '=head1 NAME' line.
X-Git-Tag: OpenSSL_0_9_8-beta6~14
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=98b4995bad018650a788b5c360232d1aa6660f72;p=oweals%2Fopenssl.git

Have pod2man.pl accept '=for comment ...' before the '=head1 NAME' line.

PR: 1113
---

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;