From: Abigail <abigail@abigail.be>
Date: Thu, 25 Jul 2002 08:52:52 +0000 (-0700)
Subject: Be less strict about what's POD.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b477a90c600622e7a21487075266aaf143f05a29;p=p5sagit%2Fp5-mst-13.2.git

Be less strict about what's POD.
Message-id: <20020725085252.A2703@ucan.foad.org>

p4raw-id: //depot/perl@17693
---

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index bb76013..c5bb19e 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -1426,7 +1426,7 @@ sub init_dirscan {	# --- File and Directory Lists (.xs .pm .pod etc)
 		my($ispod)=0;
 		if (open(FH,"<$name")) {
 		    while (<FH>) {
-			if (/^=head1\s+\w+/) {
+			if (/^=\w/) {
 			    $ispod=1;
 			    last;
 			}
@@ -1455,7 +1455,7 @@ sub init_dirscan {	# --- File and Directory Lists (.xs .pm .pod etc)
 		my($ispod)=0;
 		if (open(FH,"<$name")) {
 		    while (<FH>) {
-			if (/^=head1\s+\w+/) {
+			if (/^=\w/) {
 			    $ispod=1;
 			    last;
 			}