From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 7 Sep 2021 23:45:09 +0000 (-0700)
Subject: Fix error parsing '$^' with newline between '$' and '^' (issue c069)
X-Git-Tag: 20210717.02~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fe9b949a582955a0b67b3b5dd5b957e32a585469;p=perltidy.git

Fix error parsing '$^' with newline between '$' and '^' (issue c069)
---

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 71456b8b..f0c71648 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -7168,6 +7168,7 @@ sub scan_identifier_do {
                 # check for some special variables like $^ $^W
                 if ( $identifier =~ /^[\$\*\@\%]$/ ) {
                     $identifier .= $tok;
+                    $type = 'i';
 
                     # There may be one more character, not a space, after the ^
                     my $next1 = $rtokens->[ $i + 1 ];