fix arg count for signatures with optional args in -dbs output

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 33896788c4cb88435f422dd449c1cc9d381a4d60..1159e2a6491cc61adc1e37ebef2f1d9bc3177887 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -13433,6 +13433,11 @@ sub count_list_args {
             $arg_count++;
         }
 
+        # an '=' in a signature indicates an optional arg
+        elsif ( $type eq '=' ) {
+            return if ($is_signature);
+        }
+
         # check for a paren-less call
         elsif ( $is_kwU{$type} ) {