From 65560dfc80598cb59b0c5f92b77d2eff132bfdcc Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 31 Jul 2023 07:23:07 -0700
Subject: [PATCH] minor fix for CORE::

it is better to use 'type' instead of 'tok' even though they are the same here
---
 lib/Perl/Tidy/Tokenizer.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 997766a5..7ddfca46 100644
--- 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' ) ) {
-- 
2.39.5