From 2c8ec68b2e05f6b70aaee1c004333a105887b45e Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Sun, 7 Apr 2024 16:18:21 -0700 Subject: [PATCH] add missing call parameter found with -dma --- lib/Perl/Tidy/Formatter.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm index 8d9a1e9b..86d50522 100644 --- a/lib/Perl/Tidy/Formatter.pm +++ b/lib/Perl/Tidy/Formatter.pm @@ -27105,7 +27105,10 @@ EOM # must be closing .. fixes c102 elsif ( $depth == $current_depth - 1 && $is_closing_type{$type} ) { - $self->break_lists_decreasing_depth(); + # Note that $rbond_strength_bias will not get changed by this + # call. It gets changed in the call to set_comma_breakpoints + # at the end of this routine for commas not in lists. + $self->break_lists_decreasing_depth($rbond_strength_bias); $comma_follows_last_closing_token = $next_nonblank_type eq ',' || $next_nonblank_type eq '=>'; @@ -27680,6 +27683,10 @@ EOM # formatting styles # These breaks are made by calling sub 'set_forced_breakpoint' + # Note that $rbond_strength_bias is passed to sub + # set_comma_breakpoints, but it will not be changed. It only gets + # changed by later calls for incomplete lists. + $self->check_for_new_minimum_depth( $depth, $parent_seqno_to_go[$i] ) if ( $depth < $minimum_depth ); -- 2.39.5