From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 5 Sep 2020 22:14:38 +0000 (-0700)
Subject: fix minor issue with uninitialized value
X-Git-Tag: 20200907~5
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9442ea2d1769329b7d740f6ea1c231da0eb1018a;p=perltidy.git

fix minor issue with uninitialized value
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index f9fde7a3..5505e692 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -7421,7 +7421,7 @@ sub copy_token_as_type {
         # return length of tokens ($ibeg .. $iend) including $ibeg & $iend
         # returns 0 if $ibeg > $iend (shouldn't happen)
         my ( $ibeg, $iend ) = @_;
-        return 0 if ( $iend < 0 || $ibeg > $iend );
+        return 0 if ( !defined($iend) || $iend < 0 || $ibeg > $iend );
         return $summed_lengths_to_go[ $iend + 1 ] if ( $ibeg < 0 );
         return $summed_lengths_to_go[ $iend + 1 ] -
           $summed_lengths_to_go[$ibeg];
@@ -11757,7 +11757,10 @@ sub lookup_opening_indentation {
                 my $token         = $rLL->[$K_next_nonblank]->[_TOKEN_];
                 my $welded = $self->weld_len_left( $type_sequence, $token );
                 if ($welded) {
-                    $ibeg_weld_fix = $ibeg + ( $K_next_nonblank - $K_beg );
+                    my $itest = $ibeg + ( $K_next_nonblank - $K_beg );
+                    if ( $itest <= $max_index_to_go ) {
+                        $ibeg_weld_fix = $itest;
+                    }
                     $type_beg = ')';    ##$token_beg;
                 }
             }