perldoc -q outputs Author and Copyright section

Message-ID: <20020301153212.E1461198@linguist.thayer.dartmouth.edu>

p4raw-id: //depot/perl@14940

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 2f60c6e..0824e0a 100644 (file)
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -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;