summaryrefslogtreecommitdiff
path: root/utils/perldoc.PL
diff options
context:
space:
mode:
authorDaniel Grisinger <dgris@dimensional.com>1999-02-23 10:53:22 -0700
committerGurusamy Sarathy <gsar@cpan.org>1999-02-24 05:59:47 +0000
commit9200ae85e874bd1a7ba61d67df98ec4adc70ab9c (patch)
treeefbefe1701da9b80a8d7d599222fb3bb508c3357 /utils/perldoc.PL
parentc78749f2c1dc7ab348159cae5136d33e33ca5c90 (diff)
downloadperl-9200ae85e874bd1a7ba61d67df98ec4adc70ab9c.tar.gz
perldoc -q broken
Message-ID: <m3g17w62rh.fsf@moiraine.dimensional.com> p4raw-id: //depot/perl@3022
Diffstat (limited to 'utils/perldoc.PL')
-rw-r--r--utils/perldoc.PL1
1 files changed, 0 insertions, 1 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index f549cb15bb..6d175f19a5 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -447,7 +447,6 @@ if ($opt_q) {
local @ARGV = @found; # I'm lazy, sue me.
my $found = 0;
my %found_in;
- my @pod;
while (<>) {
if (/^=head2\s+.*(?:$opt_q)/oi) {