summaryrefslogtreecommitdiff
path: root/gnu/usr.bin/perl
diff options
context:
space:
mode:
authorTodd C. Miller <millert@cvs.openbsd.org>2002-11-03 16:08:32 +0000
committerTodd C. Miller <millert@cvs.openbsd.org>2002-11-03 16:08:32 +0000
commit1c55fe135e92a3f05847b56c956f16fa4e9b66f2 (patch)
tree7c7851cb3a38a3c523032877c52498c1705e51e2 /gnu/usr.bin/perl
parent33c4da50647364b0ad998eab7bade46e382678cd (diff)
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')
-rw-r--r--gnu/usr.bin/perl/lib/ExtUtils/MM_Unix.pm4
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;
}