Change 31825 by [EMAIL PROTECTED] on 2007/09/09 00:31:51
Band-aid for Pod::Man::devise_title to keep it from looking
beyond the end of an array and generating undefined warnings.
Affected files ...
... //depot/perl/lib/Pod/Man.pm#41 edit
Differences ...
==== //depot/perl/lib/Pod/Man.pm#41 (text) ====
Index: perl/lib/Pod/Man.pm
--- perl/lib/Pod/Man.pm#40~28871~ 2006-09-19 07:05:48.000000000 -0700
+++ perl/lib/Pod/Man.pm 2007-09-08 17:31:51.000000000 -0700
@@ -40,7 +40,7 @@
# Don't use the CVS revision as the version, since this module is also in Perl
# core and too many things could munge CVS magic revision strings. This
# number should ideally be the same as the CVS revision in podlators, however.
-$VERSION = '2.12';
+$VERSION = '2.12_01';
# Set the debugging level. If someone has inserted a debug function into this
# class already, use that. Otherwise, use any Pod::Simple debug function
@@ -792,7 +792,7 @@
my $cut = 0;
my $i;
for ($i = 0; $i < scalar @dirs; $i++) {
- if ($dirs[$i] eq 'lib' && $dirs[$i + 1] =~ /perl/) {
+ if ($dirs[$i] eq 'lib' && $i+1 < scalar(@dirs) && $dirs[$i + 1] =~
/perl/) {
$cut = $i + 2;
last;
} elsif ($dirs[$i] =~ /perl/) {
End of Patch.
