fix b1476

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index 59db65ca09ef64e8b0445d5be23fab2855ec2563..12879377a76b8ed27f7d909ece0a40e6632471ea 100644 (file)
--- a/dev-bin/run_convergence_tests.pl.data
+++ b/dev-bin/run_convergence_tests.pl.data
@@ -12166,6 +12166,30 @@ run_sub ( ->$blah{ say "ok 5" ; }
 --space-terminal-semicolon
 --break-at-old-method-breakpoints
 
+==> b1476.in <==
+        $apply->configure(
+            -command => sub
+            {
+                get_button_values_from_panel();
+                execute_decors(0);
+                set_unsaved();
+            }
+        );
+
+        $apply->configure(
+            -command => sub
+            {
+                get_button_values_from_panel();
+                execute_decors(0);
+                set_unsaved();
+            },
+        );
+
+==> b1476.par <==
+--add-trailing-commas
+--want-trailing-commas='h'
+--delete-trailing-commas
+
 ==> b148.in <==
 # state 1
 @yydgoto=(

diff --git a/dev-bin/run_convergence_tests.pl.expect b/dev-bin/run_convergence_tests.pl.expect
index 63e0b9fc4ba80c8bde643a2b4a8218eb2c7dad35..f41ad4bf18c776fa153fb6d5b02e08fd9bd794d5 100644 (file)
--- a/dev-bin/run_convergence_tests.pl.expect
+++ b/dev-bin/run_convergence_tests.pl.expect
@@ -8251,6 +8251,23 @@ run_sub (
          ->$blah{ say "ok 5" ; } ) ;
 
 
+==> b1476 <==
+        $apply->configure(
+            -command => sub {
+                get_button_values_from_panel();
+                execute_decors(0);
+                set_unsaved();
+            },
+        );
+
+        $apply->configure(
+            -command => sub {
+                get_button_values_from_panel();
+                execute_decors(0);
+                set_unsaved();
+            },
+        );
+
 ==> b148 <==
 # state 1
 @yydgoto=(

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index ab9a9333b3fdb53c9181cdc011bafd5df3d52b25..01d00c69fc10603d3071317025f33d6acb517f94 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -12729,7 +12729,7 @@ sub match_trailing_comma_rule {
                 # - an isolated fat comma is a match for type 'h'
                 || (   $fat_comma_count == 1
                     && $new_comma_count == 1
-                    && $if_add
+                    ## && $if_add ## removed to fix b1476
                     && $trailing_comma_style eq 'h' )
             )
           )