| Subject: | Infinite loop in Perldoc/Server/Model/PerlFunc.pm |
In some cases this loop in Perldoc/Server/Model/PerlFunc.pm gets stuck:
Perldoc::Server::Model::PerlFunc::function_pod(/home/dbrook/.perl-lib/Perldoc/Server/Model/PerlFunc.pm:90):
90: do {} until (<PERLFUNC> =~ /^=head2 Alphabetical Listing of
Perl Functions/);
Changing it to this seems to fix it:
90: while(<PERLFUNC>) { last if /^=head2 Alphabetical Listing of Perl
Functions/ }
Not sure why that's the case but there it is.
Cheers,
Dan Brook aka broquaint