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 );
+                }
             }
         }
     }