fix unusual instability found in testing, b1332

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index e44e326969941fd34a445f34e63d3b6be3ccf724..d1d4196b23e065349293da3be3d8ede4ddf74275 100644 (file)
--- a/dev-bin/run_convergence_tests.pl.data
+++ b/dev-bin/run_convergence_tests.pl.data
@@ -9643,6 +9643,23 @@ WriteMakefile(
 --indent-columns=1
 --square-bracket-vertical-tightness-closing=1
 
+==> b1332.in <==
+# S1
+      $b->configure (
+                    -text  => $dayArray[$col],  # disable the button
+                    -state => 'disabled' );
+
+# S2
+      $b->configure ( -text => $dayArray[$col], # disable the button
+                      -state => 'disabled' );
+
+==> b1332.par <==
+--extended-line-up-parentheses
+--indent-columns=2
+--maximum-line-length=68
+--paren-vertical-tightness=2
+--space-function-paren
+
 ==> b1333.in <==
 # S1
         $_[

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 61f166cdb1e312f17fede940f955801c2ed899b5..533c3b5dc9cb451ec6c23da9bd5e1097aeb50ee7 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -11034,11 +11034,13 @@ sub collapsed_lengths {
                         && $rLL->[$K_terminal]->[_TYPE_] eq ',' )
                     {
                         my $Kend = $K_terminal;
-                        if ( $Kend < $K_last
-                            && !$rOpts_ignore_side_comment_lengths )
-                        {
-                            $Kend = $K_last;
-                        }
+
+                        # fix for b1332: side comments handled at end of loop
+                        ##if ( $Kend < $K_last
+                        ##    && !$rOpts_ignore_side_comment_lengths )
+                        ##{
+                        ##    $Kend = $K_last;
+                        ##}
 
                         # Measure from the next blank if any (fixes b1301)
                         my $Kbeg = $KK;