From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 29 May 2022 19:19:39 +0000 (-0700)
Subject: fix perlcritic complaint
X-Git-Tag: 20220613~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=68239bb5f862a8c87625367f81e34bb97dba86a9;p=perltidy.git

fix perlcritic complaint
---

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