From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 27 Oct 2022 14:10:04 +0000 (-0700)
Subject: fix b1401
X-Git-Tag: 20221112~23
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d3f269a968f3f7169e25b7f643c43b38a277cfb1;p=perltidy.git

fix b1401
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index d570e497..00b9ff54 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -9907,8 +9907,9 @@ sub weld_nested_containers {
     # We use the minimum of two criteria, either of which may be more
     # restrictive.  The 'alpha' value is more restrictive in (b1206, b1252) and
     # the 'beta' value is more restrictive in other cases (b1243).
+    # Reduced beta term from beta+3 to beta+2 to fix b1401.
 
-    my $weld_cutoff_level = min( $stress_level_alpha, $stress_level_beta + 3 );
+    my $weld_cutoff_level = min( $stress_level_alpha, $stress_level_beta + 2 );
 
     # The vertical tightness flags can throw off line length calculations.
     # This patch was added to fix instability issue b1284.