Band-aid for Pod::Man::devise_title to keep it from looking

beyond the end of an array and generating undefined warnings.

p4raw-id: //depot/perl@31825

diff --git a/lib/Pod/Man.pm b/lib/Pod/Man.pm
index 077bd7b..a8b41bb 100644 (file)
--- a/lib/Pod/Man.pm
+++ b/lib/Pod/Man.pm
@@ -40,7 +40,7 @@ use POSIX qw(strftime);
 # 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 @@ sub devise_title {
         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/) {