Re: pod-error in perldocs

[ikegami]

y/// is the last item in perlfunc, so the item is ended by =back.

Whatever is splitting the entries in perlfunc is probably using /^=item\b/m to find where the item ends. This needs to be /^=(?:item|back)\b/m.

[thunders]

That is correct. This is the relevant section in Pod/Perldoc.pm search_perlfunc()

 891     while (<PFUNC>) {  # "The Mothership Connection is here!"
 892         if ( m/^=item\s+$search_re\b/ )  {
 893             $found = 1;
 894         }
 895         elsif (/^=item/) {
 896             last if $found > 1 and not $inlist;
 897         }
 898         next unless $found;
 899         if (/^=over/) {
 900             ++$inlist;
 901         }
 902         elsif (/^=back/) {
 903             --$inlist;
 904         }
 905         push @$pod, $_;
 906         ++$found if /^\w/;        # found descriptive text
 907     }

[LanX]

Thx!

Whatever is splitting the entries

IMHO parsing is done in POD::Simple, but I can't remember this bug in any older perl-versions...

Anyway I've send an email to perl5porters reporting it and pointing back to this thread.

If someone can spot the problem or can even supply a patch in thsi thread it should be seen!

Anyhow I have work to do with POD::Simple next week so I'm gonna have a look...

PS: @all Thanx for downvoting! 8)

[thunders]

I can confirm that this error exists in 5.10.0 and that it does not exist in 5.8.4 or 5.8.8. Also, in 5.10 at least, parsing for this option occurs entirely in Pod::Perldoc, not Pod::Simple.