From 377baec225a933adfd02600fa30e31f9ddfd4102 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Fri, 6 Dec 2024 16:09:47 -0800 Subject: [PATCH] fix -bom to filter non-method calls; c426 --- lib/Perl/Tidy/Formatter.pm | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm index 33946703..d9877b1a 100644 --- a/lib/Perl/Tidy/Formatter.pm +++ b/lib/Perl/Tidy/Formatter.pm @@ -18955,6 +18955,12 @@ sub keep_old_line_breaks { next if ( !defined($Kp) ); next if ( $is_opening_type{ $rLL->[$Kp]->[_TYPE_] } ); + # ignore -bom if this does not look like a method call; c426 + my $Kn = $self->K_next_nonblank($Kfirst); + next if ( !defined($Kn) ); + my $token_n = $rLL->[$Kn]->[_TYPE_]; + next if ( $token_n eq '{' || $token_n eq '[' ); + $rbreak_before_Kfirst->{$Kfirst} = 2; } @@ -18980,6 +18986,12 @@ sub keep_old_line_breaks { # opens the opening paren when the closing paren opens. # Relevant cases are b977, b1215, b1270, b1303 + # ignore -bom if this does not look like a method call; c426 + $Kn = $self->K_next_nonblank($Kn); + next if ( !defined($Kn) ); + my $token_n = $rLL->[$Kn]->[_TYPE_]; + next if ( $token_n eq '{' || $token_n eq '[' ); + $rbreak_container->{$seqno} = 1; } else { -- 2.39.5