From 6aeed52647309c15f39741766b771692c458df56 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Sun, 31 Mar 2024 17:23:18 -0700 Subject: [PATCH] ignore my subs for -dma -wmat --- lib/Perl/Tidy/Formatter.pm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm index ad20f0bd..c34c2163 100644 --- a/lib/Perl/Tidy/Formatter.pm +++ b/lib/Perl/Tidy/Formatter.pm @@ -14062,9 +14062,14 @@ sub cross_check_call_args { my ( $shift_count, $self_name ); my $rsub_item = $rsub_info->{$key}; if ( defined($rsub_item) ) { - $common_hash{$key}->{rsub_item} = $rsub_item; - $shift_count = $rsub_item->{shift_count}; - $self_name = $rsub_item->{self_name}; + + # skip 'my' subs for now, they need special treatment + my $seqno_sub = $rsub_item->{seqno}; + if ( !$ris_my_sub_by_seqno->{$seqno_sub} ) { + $common_hash{$key}->{rsub_item} = $rsub_item; + $shift_count = $rsub_item->{shift_count}; + $self_name = $rsub_item->{self_name}; + } } # compare caller/sub arg counts if posible -- 2.39.5