Be less strict about what's POD.
authorAbigail <abigail@abigail.be>
Thu, 25 Jul 2002 08:52:52 +0000 (01:52 -0700)
committerhv <hv@crypt.org>
Thu, 8 Aug 2002 14:25:16 +0000 (14:25 +0000)
Message-id: <20020725085252.A2703@ucan.foad.org>

p4raw-id: //depot/perl@17693

lib/ExtUtils/MM_Unix.pm

index bb76013..c5bb19e 100644 (file)
@@ -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;
                        }