[perl.git] branch blead, updated. GitLive-blead-2476-g906bad6

[Steffen Mueller]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/906bad61c3bd0dd3a56a226b2981e4d14d5e71c9?hp=993f042350da76bc3fd9ee9391fd43c55e148ad4>

- Log -----------------------------------------------------------------
commit 906bad61c3bd0dd3a56a226b2981e4d14d5e71c9
Author: ikegami <e...@fmdev10.(none)>
Date:   Wed Sep 23 18:58:34 2009 -0400

    Fix bad generated pod for last entries in perl{var,func}
-----------------------------------------------------------------------

Summary of changes:
 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 ef54796..97edc25 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, $_;

--
Perl5 Master Repository