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 (file)
--- 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) {