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 (file)
--- 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;
                        }