This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
993f042
)
Fix bad generated pod for last entries in perl{var,func}
author
ikegami
<eric@fmdev10.(none)>
Wed, 23 Sep 2009 22:58:34 +0000
(18:58 -0400)
committer
Steffen Mueller
<smueller@cpan.org>
Mon, 28 Sep 2009 15:50:39 +0000
(17:50 +0200)
ext/Pod-Perldoc/lib/Pod/Perldoc.pm
patch
|
blob
|
blame
|
history
diff --git
a/ext/Pod-Perldoc/lib/Pod/Perldoc.pm
b/ext/Pod-Perldoc/lib/Pod/Perldoc.pm
index
ef54796
..
97edc25
100644
(file)
--- 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, $_;