This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perldoc -q outputs Author and Copyright section
authorRonald J. Kimball <rjk@linguist.dartmouth.edu>
Fri, 1 Mar 2002 15:32:13 +0000 (10:32 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 2 Mar 2002 02:29:11 +0000 (02:29 +0000)
Message-ID: <20020301153212.E1461198@linguist.thayer.dartmouth.edu>

p4raw-id: //depot/perl@14940

utils/perldoc.PL

index 2f60c6e..0824e0a 100644 (file)
@@ -588,7 +588,7 @@ EOD
            $found = 1;
            push @pod, "=head1 Found in $ARGV\n\n" unless $found_in{$ARGV}++;
        }
-       elsif (/^=head2/) {
+       elsif (/^=head[12]/) {
            $found = 0;
        }
        next unless $found;