From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Wed, 28 Sep 2022 01:31:06 +0000 (-0700)
Subject: fix minor error in atc=w
X-Git-Tag: 20220613.06~16
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ebb0bcb19db643f862267ee5729ee7f4e866fae3;p=perltidy.git

fix minor error in atc=w
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 9dd3d422..c367d668 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -7949,12 +7949,16 @@ sub match_trailing_comma {
 
         # looking for something like '},)' where the comma is the only comma in
         # the list
+        return unless ( $rtype_count->{','} == 1 );
         my $Kp = $self->K_previous_nonblank( undef, $rLL_new );
         return unless ( defined($Kp) );
         my $Kpp = $self->K_previous_nonblank( $Kp, $rLL_new );
-        if ( $rtype_count->{','} == 1 && defined($Kpp) ) {
-            my $type_pp = $rLL_new->[$Kpp]->[_TYPE_];
-            if ( $is_closing_type{$type_pp} ) {
+        return unless ( defined($Kpp) );
+        my $seqno_pp = $rLL_new->[$Kpp]->[_TYPE_SEQUENCE_];
+        my $type_pp  = $rLL_new->[$Kpp]->[_TYPE_];
+
+        if ( $seqno_pp && $is_closing_type{$type_pp} ) {
+            if ( $seqno_pp == $type_sequence + 1 ) {
                 $OK_control_flag = '*';
             }
         }