fix b1421

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index dec6811616fc062ec41a5677235d951c97aa35ba..751b294c7a787c013d247e2c2f38cebec67efdba 100644 (file)
--- a/dev-bin/run_convergence_tests.pl.data
+++ b/dev-bin/run_convergence_tests.pl.data
@@ -10777,6 +10777,35 @@ if ( ioctl( STDERR, $TIOCGWINSZ,
 --indent-columns=5
 --vertical-tightness-closing=1
 
+==> b1421.in <==
+if ( L2hos
+     ->Link(
+      $image2, $image1,
+     ) )
+{
+L2hos
+  ->Unlink($tmp);
+}
+
+if (
+     L2hos
+     ->Link(
+      $image2, $image1,
+     ) )
+{
+L2hos
+  ->Unlink($tmp);
+}
+
+==> b1421.par <==
+--break-at-old-method-breakpoints
+--extended-line-up-parentheses
+--indent-columns=0
+--maximum-line-length=23
+--paren-vertical-tightness-closing=1
+--paren-vertical-tightness=1
+--weld-nested-containers
+
 ==> b146.in <==
 # State 1
 

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index b8b1ad8d20cb47167a226b3790999519aead2204..ef2d6ef0f0ee7896421ebd9ef73beec6466e120f 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -9966,10 +9966,11 @@ sub weld_nested_containers {
         # protection against instability.  The line difference of '2'
         # worked for b1402, but needs to be '3' to include b1419 because
         # it has -vtc>0 which can add more uncertainty.
+        # And for case b1421 it had to be increased to '4'.
         if (   %opening_vertical_tightness
             && $opening_vertical_tightness{$token_oo} )
         {
-            if ( $iline_oc - $iline_oo <= 3 ) {
+            if ( $iline_oc - $iline_oo <= 4 ) {
                 $rmax_vertical_tightness->{$outer_seqno} = 0;
             }
         }