minor fix for CORE::

it is better to use 'type' instead of 'tok' even though they are the same here

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 997766a544ba46bfa7a85a4eda3a2b28233b32f6..7ddfca46356f3be38b029f08b98bbe44b5e9499a 100644 (file)
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -5187,7 +5187,7 @@ EOM
                 last if ( $in_quote || $i > $max_token_index );
             }
 
-            if ( $type ne 'b' && $tok ne 'CORE::' ) {
+            if ( $type ne 'b' && $type ne 'CORE::' ) {
 
                 # try to catch some common errors
                 if ( ( $type eq 'n' ) && ( $tok ne '0' ) ) {