diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2002-11-03 16:08:32 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2002-11-03 16:08:32 +0000 |
| commit | 1c55fe135e92a3f05847b56c956f16fa4e9b66f2 (patch) | |
| tree | 7c7851cb3a38a3c523032877c52498c1705e51e2 | |
| parent | 33c4da50647364b0ad998eab7bade46e382678cd (diff) | |
The regex used in ExtUtils-MakeMaker-6.05 to check for pod didn't match
=head[1-4] correctly.
| -rw-r--r-- | gnu/usr.bin/perl/lib/ExtUtils/MM_Unix.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/lib/ExtUtils/MM_Unix.pm b/gnu/usr.bin/perl/lib/ExtUtils/MM_Unix.pm index 3b8d98b7e99..231dcd51288 100644 --- a/gnu/usr.bin/perl/lib/ExtUtils/MM_Unix.pm +++ b/gnu/usr.bin/perl/lib/ExtUtils/MM_Unix.pm @@ -1425,7 +1425,7 @@ sub init_dirscan { # --- File and Directory Lists (.xs .pm .pod etc) my($ispod)=0; if (open(FH,"<$name")) { while (<FH>) { - if (/^=(head|item|pod)\b/) { + if (/^=(head[1-4]|item|pod)\b/) { $ispod=1; last; } @@ -1454,7 +1454,7 @@ sub init_dirscan { # --- File and Directory Lists (.xs .pm .pod etc) my($ispod)=0; if (open(FH,"<$name")) { while (<FH>) { - if (/^=(head|item|pod)\b/) { + if (/^=(head[1-4]|item|pod)\b/) { $ispod=1; last; } |