From 68239bb5f862a8c87625367f81e34bb97dba86a9 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 29 May 2022 12:19:39 -0700
Subject: [PATCH] fix perlcritic complaint

---
 lib/Perl/Tidy/Formatter.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 597938ec..7687ffbc 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -2307,7 +2307,7 @@ EOM
 
     # ignore kbb='(' : can cause unstable math formatting (issue b1346)
     if ( $short_name eq 'kbb' ) {
-        @list = grep { $_ !~ /\(/ } @list;
+        @list = grep { !m/\(/ } @list;
     }
 
     # pull out any any leading container code, like f( or *{
-- 
2.39.5