Change 14940 by jhi@alpha on 2002/03/02 02:29:11
Subject: [PATCH] perldoc -q outputs Author and Copyright section
From: Ronald J Kimball <[EMAIL PROTECTED]>
Date: Fri, 1 Mar 2002 15:32:13 -0500
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/utils/perldoc.PL#64 edit
Differences ...
==== //depot/perl/utils/perldoc.PL#64 (text) ====
Index: perl/utils/perldoc.PL
--- perl/utils/perldoc.PL.~1~ Fri Mar 1 19:45:05 2002
+++ perl/utils/perldoc.PL Fri Mar 1 19:45:05 2002
@@ -588,7 +588,7 @@
$found = 1;
push @pod, "=head1 Found in $ARGV\n\n" unless $found_in{$ARGV}++;
}
- elsif (/^=head2/) {
+ elsif (/^=head[12]/) {
$found = 0;
}
next unless $found;
End of Patch.
