From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 7 Dec 2024 00:09:47 +0000 (-0800)
Subject: fix -bom to filter non-method calls; c426
X-Git-Tag: 20240903.08~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=377baec225a933adfd02600fa30e31f9ddfd4102;p=perltidy.git

fix -bom to filter non-method calls; c426
---

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 {