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

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 71456b8b6c610da56746a22d276ee2ed71a8a0eb..f0c7164877ee823f0eca7c38ed45b43828d92024 100644 (file)
--- 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 ];