From: Ronald J. Kimball <rjk@linguist.dartmouth.edu>
Date: Fri, 1 Mar 2002 15:32:13 +0000 (-0500)
Subject: perldoc -q outputs Author and Copyright section
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a5396746e9199ea47d5e74d932874c846125229d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;