Commit 3ddf8503 authored by Dr. Stephen Henson's avatar Dr. Stephen Henson
Browse files

PR: 2132 

Submitted by: steve

Fix bundled pod2man.pl to handle alternative comment formats.
parent 6084c797

util/pod2man.pl

+1 −1
Original line number Diff line number Diff line
@@ -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;