From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 31 Jul 2023 14:23:07 +0000 (-0700)
Subject: minor fix for CORE::
X-Git-Tag: 20230701.03~34
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=65560dfc80598cb59b0c5f92b77d2eff132bfdcc;p=perltidy.git

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 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' ) ) {