From: Daniel Grisinger <dgris@dimensional.com>
Date: Tue, 23 Feb 1999 17:53:22 +0000 (-0700)
Subject: perldoc -q broken
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9200ae85e874bd1a7ba61d67df98ec4adc70ab9c;p=p5sagit%2Fp5-mst-13.2.git

perldoc -q broken

	Message-ID: <m3g17w62rh.fsf@moiraine.dimensional.com>

p4raw-id: //depot/perl@3022
---

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index f549cb1..6d175f1 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) {