From e70826c8cbfcfd58acdb25d9f3a1dc175d9955cf Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 14 Oct 2024 13:40:40 -0700
Subject: [PATCH] simplification

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

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 65a5db55..54bf80d0 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -10061,15 +10061,9 @@ EOM
             else {
 
                 # Let's try a Brace Test: any braces inside must balance
-                my $br = 0;
-                while ( $str =~ /\{/g ) { $br++ }
-                while ( $str =~ /\}/g ) { $br-- }
-                my $sb = 0;
-                while ( $str =~ /\[/g ) { $sb++ }
-                while ( $str =~ /\]/g ) { $sb-- }
-                my $pr = 0;
-                while ( $str =~ /\(/g ) { $pr++ }
-                while ( $str =~ /\)/g ) { $pr-- }
+                my $br = $str =~ tr/\{/{/ - $str =~ tr/\}/}/;
+                my $sb = $str =~ tr/\[/[/ - $str =~ tr/\]/]/;
+                my $pr = $str =~ tr/\(/(/ - $str =~ tr/\)/)/;
 
                 # if braces do not balance - not angle operator
                 if ( $br || $sb || $pr ) {
-- 
2.39.5