From: Steve Hancock <perltidy@users.sourceforge.net> Date: Sun, 13 Sep 2020 22:47:26 +0000 (-0700) Subject: fixed unitialized variable problem X-Git-Tag: 20200907.01~9 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5bf49a3c6ee59c507c365a7b2fa4f1a83a1abe50;p=perltidy.git fixed unitialized variable problem --- diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm index f2a92e56..99dd2619 100644 --- a/lib/Perl/Tidy/Tokenizer.pm +++ b/lib/Perl/Tidy/Tokenizer.pm @@ -7359,7 +7359,9 @@ sub follow_quoted_string { } } else { - $quoted_string .= substr( $tok, $old_pos ); + if ( $old_pos <= length($tok) ) { + $quoted_string .= substr( $tok, $old_pos ); + } } } }