fix perlcritic complaint

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 597938ecc08b66dbf20d4775f8a55a11cb9c32ab..7687ffbc7752e0277de61495260f04d1d0cd4e60 100644 (file)
--- 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 *{