From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 4 Sep 2022 22:13:24 +0000 (-0700)
Subject: fix issue b1375
X-Git-Tag: 20220613.05~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=20eafc23a2d2740fdb90d8ace4b94c6aaca3a911;p=perltidy.git

fix issue b1375
---

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index 9ef02cc5..69e5d505 100644
--- a/dev-bin/run_convergence_tests.pl.data
+++ b/dev-bin/run_convergence_tests.pl.data
@@ -10143,6 +10143,25 @@ $font_size
 --maximum-line-length=12
 --nowant-right-space='='
 
+==> b1375.in <==
+# S1
+          $self->{'col_ids'} ||= [
+               $self->numbering .. $self->width() + $self->numbering - 1 ]
+            if ( defined( $self->width() ) && $self->width() > 0 );
+
+# S2
+          $self->{'col_ids'} ||=
+            [ $self->numbering .. $self->width() +
+                    $self->numbering - 1 ]
+            if ( defined( $self->width() ) && $self->width() > 0 );
+
+==> b1375.par <==
+--extended-line-up-parentheses
+--indent-columns=10
+--maximum-line-length=58
+--opening-square-bracket-right
+--variable-maximum-line-length
+
 ==> b140.in <==
 $cmd[ $i ]=[
 	 $s, $e, $cmd, \@hunk, $i ] ;
diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index c68b192a..2cd88c1a 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -26540,8 +26540,9 @@ sub set_vertical_tightness_flags {
             && $token_end ne '||' && $token_end ne '&&'
 
             # Keep break after '=' if -lp. Fixes b964 b1040 b1062 b1083 b1089.
+            # Generalized from '=' to $is_assignment to fix b1375.
             && !(
-                   $token_end eq '='
+                   $is_assignment{ $types_to_go[$iend] }
                 && $rOpts_line_up_parentheses
                 && $self->[_rlp_object_by_seqno_]
                 ->{ $type_sequence_to_go[$ibeg_next] }