diff options
| author | ikegami <eric@fmdev10.(none)> | 2009-09-23 18:58:34 -0400 |
|---|---|---|
| committer | Steffen Mueller <smueller@cpan.org> | 2009-09-28 17:50:39 +0200 |
| commit | 906bad61c3bd0dd3a56a226b2981e4d14d5e71c9 (patch) | |
| tree | bcbd782ba30c0eea800c4548322e778eb29e9d95 /ext | |
| parent | 993f042350da76bc3fd9ee9391fd43c55e148ad4 (diff) | |
| download | perl-906bad61c3bd0dd3a56a226b2981e4d14d5e71c9.tar.gz | |
Fix bad generated pod for last entries in perl{var,func}
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Pod-Perldoc/lib/Pod/Perldoc.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/Pod-Perldoc/lib/Pod/Perldoc.pm b/ext/Pod-Perldoc/lib/Pod/Perldoc.pm index ef54796ad8..97edc25ff7 100644 --- a/ext/Pod-Perldoc/lib/Pod/Perldoc.pm +++ b/ext/Pod-Perldoc/lib/Pod/Perldoc.pm @@ -932,6 +932,7 @@ sub search_perlvar { ++$inlist; } elsif (/^=back/) { + last if $found && !$inheader && !$inlist; --$inlist; } push @$pod, $_; @@ -991,6 +992,7 @@ sub search_perlfunc { ++$inlist; } elsif (/^=back/) { + last if $found > 1 and not $inlist; --$inlist; } push @$pod, $_; |