From fe9b949a582955a0b67b3b5dd5b957e32a585469 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 7 Sep 2021 16:45:09 -0700
Subject: [PATCH] Fix error parsing '$^' with newline between '$' and '^'
 (issue c069)

---
 lib/Perl/Tidy/Tokenizer.pm | 1 +
 1 file changed, 1 insertion(+)

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 ];
-- 
2.39.5