diff options
| author | Ronald J. Kimball <rjk@linguist.dartmouth.edu> | 2002-03-01 10:32:13 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-02 02:29:11 +0000 |
| commit | a5396746e9199ea47d5e74d932874c846125229d (patch) | |
| tree | 22884e0933975d80ccbcf0d5e06e5210d1769884 /utils/perldoc.PL | |
| parent | 8cbc2e3b35a2d1fc6313ced2b006c574c892f00d (diff) | |
| download | perl-a5396746e9199ea47d5e74d932874c846125229d.tar.gz | |
perldoc -q outputs Author and Copyright section
Message-ID: <20020301153212.E1461198@linguist.thayer.dartmouth.edu>
p4raw-id: //depot/perl@14940
Diffstat (limited to 'utils/perldoc.PL')
| -rw-r--r-- | utils/perldoc.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 2f60c6ed2e..0824e0a90f 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; |