From ac6a22af0b43b3b1f62102eb183a41c60ec855f9 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 6 Nov 2020 16:09:23 -0800
Subject: [PATCH] minor speedup

---
 lib/Perl/Tidy/Formatter.pm | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 55718379..98cf934e 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -10269,6 +10269,18 @@ EOM
     my @unmatched_opening_indexes_in_this_batch;
     my @unmatched_closing_indexes_in_this_batch;
     my %comma_arrow_count;
+    my %is_opening_tok = (
+        '(' => 1,
+        '[' => 1,
+        '{' => 1,
+        '?' => 1
+    );
+    my %is_closing_tok = (
+        ')' => 1,
+        ']' => 1,
+        '}' => 1,
+        ':' => 1
+    );
 
     sub initialize_saved_opening_indentation {
         %saved_opening_indentation = ();
@@ -10301,10 +10313,10 @@ EOM
         foreach my $i ( 0 .. $max_index_to_go ) {
             if ( $type_sequence_to_go[$i] ) {
                 my $token = $tokens_to_go[$i];
-                if ( $token =~ /^[\(\[\{\?]$/ ) {
+                if ( $is_opening_tok{$token} ) {
                     push @unmatched_opening_indexes_in_this_batch, $i;
                 }
-                elsif ( $token =~ /^[\)\]\}\:]$/ ) {
+                elsif ( $is_closing_tok{$token} ) {
 
                     my $i_mate = pop @unmatched_opening_indexes_in_this_batch;
                     if ( defined($i_mate) && $i_mate >= 0 ) {
-- 
2.39.5