diff options
author | 2002-11-03 16:08:31 +0000 | |
---|---|---|
committer | 2002-11-03 16:08:31 +0000 | |
commit | 38dbee5971d9675ba1d3802e4585568978e31ca1 (patch) | |
tree | 7af588a8b040d7bf961b3ef721d598c1f8a94aab /gnu/usr.bin/perl/lib/ExtUtils/MM_Unix.pm | |
parent | Missing word in buffers size line. (diff) | |
download | wireguard-openbsd-38dbee5971d9675ba1d3802e4585568978e31ca1.tar.xz wireguard-openbsd-38dbee5971d9675ba1d3802e4585568978e31ca1.zip |
The regex used in ExtUtils-MakeMaker-6.05 to check for pod didn't match
=head[1-4] correctly.
Diffstat (limited to 'gnu/usr.bin/perl/lib/ExtUtils/MM_Unix.pm')
-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; } |