From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 14 Oct 2024 20:40:40 +0000 (-0700)
Subject: simplification
X-Git-Tag: 20240903.05~29
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e70826c8cbfcfd58acdb25d9f3a1dc175d9955cf;p=perltidy.git

simplification
---

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