X-Git-Url: https://git.openssl.org/?p=openssl.git;a=blobdiff_plain;f=util%2Fpod2man.pl;h=025d914f2e8be2f8deef2f3b1abd9166056be811;hp=c6b64add602d7977c13b0675edc7b3f6664425c1;hb=115d528c232a16b642338502e31b5538f995e41b;hpb=4ea38555148b23639e8c3e44b70bccbc765b9aa5

diff --git a/util/pod2man.pl b/util/pod2man.pl
index c6b64add60..025d914f2e 100755
--- a/util/pod2man.pl
+++ b/util/pod2man.pl
@@ -416,8 +416,8 @@ if ($name ne 'something') {
 			warn "$0: Improper man page - malformed NAME header in paragraph $. of $ARGV[0]\n"
 		    }
 		    else {
-			$n[0] =~ s/\n/ /;
-			$n[1] =~ s/\n/ /;
+			$n[0] =~ s/\n/ /g;
+			$n[1] =~ s/\n/ /g;
 			%namedesc = @n;
 		    }
 		}
@@ -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|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;