From 1a42325516b767a46078ba64ad94433ff6d55002 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 22 Mar 2020 11:12:57 -0700
Subject: [PATCH] fix a few additional [_A-Za-z] matches

---
 lib/Perl/Tidy/Tokenizer.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index b69e776f..40f70123 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -2273,7 +2273,8 @@ sub prepare_for_a_new_file {
                 # because we also have to be sure that previous token is
                 # a type character ($,@,%).
                 if ( $last_nonblank_token eq '{'
-                    && ( $next_tok =~ /^[A-Za-z_]/ ) )
+                    && ( $next_tok !~ /^\d/ ) 
+                    && ( $next_tok =~ /^\w/ ) )
                 {
 
                     if ( $next_tok eq 'W' ) {
@@ -4279,7 +4280,7 @@ sub operator_expected {
     if ( $last_nonblank_type eq 'Z' ) {
 
         # angle.t
-        if ( $last_nonblank_token =~ /^[A-Za-z_]/ ) {
+        if ( $last_nonblank_token =~ /^\w/ ) {
             $op_expected = UNKNOWN;
         }
 
-- 
2.39.5