From 2edd6c2d86d9a6dc3ee9d4a13b2ce2ddf0775920 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 27 May 2024 19:00:02 -0700
Subject: [PATCH] fix minor -dma issue

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

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;
             }
-- 
2.39.5