From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 28 May 2024 02:00:02 +0000 (-0700)
Subject: fix minor -dma issue
X-Git-Tag: 20240511.03~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2edd6c2d86d9a6dc3ee9d4a13b2ce2ddf0775920;p=perltidy.git

fix minor -dma issue
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 6ea7b12d..0e83852e 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -13565,6 +13565,7 @@ sub count_list_args {
                     next if ( $type_last eq 'k' && $token_last eq 'scalar' );
                     next if ( $type_last eq '+' );
                     next if ( $type_last eq q{\\} );
+                    next if ( $type_last eq '!' );
                 }
                 return;
             }