Modify welding rules for -lp

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 27db51b9f5b538075b23b816d897742556775874..29b1e8944de427a88956c9bb729c62eea9769631 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -7622,8 +7622,9 @@ EOM
                     # this line has an unbalanced start.  This helps prevent
                     # blinkers in unusual cases for lines near the length limit
                     # by making it more likely that RULE 2 will prevent a weld.
-                    my $level_diff =
-                      $outer_opening->[_LEVEL_] - $rLL->[$Kfirst]->[_LEVEL_];
+                    # FIX3: for b1131: only use level difference in -lp mode.
+                    my $level_diff = $rOpts_line_up_parentheses
+                      && $outer_opening->[_LEVEL_] - $rLL->[$Kfirst]->[_LEVEL_];
 
                     if ( !$level_diff || $excess + $rOpts_indent_columns <= 0 )
                     {

diff --git a/local-docs/BugLog.pod b/local-docs/BugLog.pod
index 840a674348548ba68a01d1459f36daec1ff5390d..1b856f37430d1f67d5fe7e551b4e2dfadc3d11c0 100644 (file)
--- a/local-docs/BugLog.pod
+++ b/local-docs/BugLog.pod
@@ -2,6 +2,15 @@
 
 =over 4
 
+=item B<Modify welding rules>
+
+This is an update to the patch 19 Apr 2021, eeeaf09. It restricts that patch
+to -lp formatting mode.
+
+This fixes case b1131.
+
+21 May 2021.
+
 =item B<Fix inconsistency involving counting commas>
 
 Random testing produced a formatting instability involving the combination of