make perldoc -f grok nested =items

p4raw-id: //depot/perl@3336

1 files changed, 8 insertions, 1 deletions

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index c351fbf464..e591479279 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -429,13 +429,20 @@ if ($opt_f) {
 
    # Look for our function
    my $found = 0;
+   my $inlist = 0;
    while (<PFUNC>) {
        if (/^=item\s+\Q$search_string\E\b/o)  {
 	   $found = 1;
        } elsif (/^=item/) {
-	   last if $found > 1;
+	   last if $found > 1 and not $inlist;
        }
        next unless $found;
+       if (/^=over/) {
+	   ++$inlist;
+       }
+       elsif (/^=back/) {
+	   --$inlist;
+       }
        push @pod, $_;
        ++$found if /^\w/;	# found descriptive text
    }