From 906bad61c3bd0dd3a56a226b2981e4d14d5e71c9 Mon Sep 17 00:00:00 2001
From: ikegami <eric@fmdev10.(none)>
Date: Wed, 23 Sep 2009 18:58:34 -0400
Subject: Fix bad generated pod for last entries in perl{var,func}

---
 ext/Pod-Perldoc/lib/Pod/Perldoc.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'ext')

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, $_;
-- 
cgit v1.2.1