From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 1 Jul 2021 13:21:19 +0000 (-0700)
Subject: Fixed use of uninitialized value
X-Git-Tag: 20210625.02~17
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ea139bda0e78a17b1d66017f9bcd4ee8d802d7c6;p=perltidy.git

Fixed use of uninitialized value
---

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 2ab93c13..b0e3676d 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -7584,10 +7584,13 @@ sub find_next_nonblank_token {
               peek_ahead_for_nonblank_token( $rtokens, $max_token_index );
         }
     }
+
     my $next_nonblank_token = $rtokens->[ ++$i ];
+    return ( " ", $i ) unless defined($next_nonblank_token);
 
     if ( $next_nonblank_token =~ /^\s*$/ ) {
         $next_nonblank_token = $rtokens->[ ++$i ];
+        return ( " ", $i ) unless defined($next_nonblank_token);
     }
     return ( $next_nonblank_token, $i );
 }
diff --git a/local-docs/BugLog.pod b/local-docs/BugLog.pod
index 35a916e0..8cc0484c 100644
--- a/local-docs/BugLog.pod
+++ b/local-docs/BugLog.pod
@@ -2,6 +2,16 @@
 
 =over 4
 
+=item B<Fixed use of uninitialized value>
+
+The previous Tokenizer update caused the use of an unitialized value when run on case b1053:
+
+ Use of uninitialized value $next_nonblank_token in pattern match (m//) at /home/steve/bin/Perl/Tidy/Tokenizer.pm line 7589.
+ Use of uninitialized value $nn_nonblank_token in pattern match (m//) at /home/steve/bin/Perl/Tidy/Tokenizer.pm line 3723.
+ b1053 converged on iteration 2
+
+This update fixes this.
+
 =item B<Fix token type of colon introducing anonomyous sub attribute list>
 
 In the following example