From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 25 Mar 2022 02:14:02 +0000 (-0700)
Subject: fix issue b1330, -xlp edge case
X-Git-Tag: 20220217.03~31
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2781a25857ab1100a92260b695a1c194fae3f305;p=perltidy.git

fix issue b1330, -xlp edge case
---

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index 1517ac34..d1c33ae0 100644
--- a/dev-bin/run_convergence_tests.pl.data
+++ b/dev-bin/run_convergence_tests.pl.data
@@ -9624,6 +9624,25 @@ WriteMakefile(
 --variable-maximum-line-length
 --want-break-before='='
 
+==> b1330.in <==
+  print $tbl->render_row(
+    [    #
+      "$STATUS->{$status}->[2] $STATUS->{$status}->[0] $RESET",
+      "$STATUS->{$status}->[2]  @{[ $total->{data}->{$status} // 0 ]}  $RESET",
+    ]
+  );
+
+  print $tbl->render_row(
+   [    #
+     "$STATUS->{$status}->[2] $STATUS->{$status}->[0] $RESET",
+     "$STATUS->{$status}->[2]  @{[ $total->{data}->{$status} // 0 ]}  $RESET", ]
+  );
+
+==> b1330.par <==
+--extended-line-up-parentheses
+--indent-columns=1
+--square-bracket-vertical-tightness-closing=1
+
 ==> b140.in <==
 $cmd[ $i ]=[
 	 $s, $e, $cmd, \@hunk, $i ] ;
diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index beb47397..09e35690 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -10916,9 +10916,12 @@ sub collapsed_lengths {
                 defined($K_c)
                 && $rLL->[$K_terminal]->[_TYPE_] eq ','
 
-                # Ignore a terminal comma, causes instability (b1297)
-                && (   $K_c - $K_terminal > 2
-                    || $rLL->[ $K_terminal + 1 ]->[_TYPE_] eq 'b' )
+                # Ignore a terminal comma, causes instability (b1297, b1330)
+                && (
+                    $K_c - $K_terminal > 2
+                    || (   $K_c - $K_terminal == 2
+                        && $rLL->[ $K_terminal + 1 ]->[_TYPE_] ne 'b' )
+                )
               )
             {
                 my $Kend = $K_terminal;