fix minor -dma issue

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 6ea7b12d4a67ca5051c8993ab2833a071e072312..0e83852e91b7bab4c4d862e199d6d88f7e8e09f9 100644 (file)
--- 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;
             }