From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 7 Jan 2022 15:42:03 +0000 (-0800)
Subject: minor improvement for fix b1275
X-Git-Tag: 20211029.06~25
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3f11e8d761fcd4cf87e985ef32463c2c3ee4297d;p=perltidy.git

minor improvement for fix b1275
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 838697db..2e960f65 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -9850,25 +9850,27 @@ sub break_before_list_opening_containers {
                 }
 
                 # finally, we will call it complex if there are inner opening
-                # and closing container tokens within the outer container
-                # tokens.
+                # and closing container tokens, not parens, within the outer
+                # container tokens.
                 if ( !$is_complex ) {
-                    my $Kp     = $self->K_next_nonblank($KK);
-                    my $type_p = defined($Kp) ? $rLL->[$Kp]->[_TYPE_] : 'b';
-                    if ( $is_opening_type{$type_p} ) {
+                    my $Kp      = $self->K_next_nonblank($KK);
+                    my $token_p = defined($Kp) ? $rLL->[$Kp]->[_TOKEN_] : 'b';
+                    if ( $is_opening_token{$token_p} && $token_p ne '(' ) {
 
-                        my $Kc     = $K_closing_container->{$seqno};
-                        my $Km     = $self->K_previous_nonblank($Kc);
-                        my $type_m = defined($Km) ? $rLL->[$Km]->[_TYPE_] : 'b';
+                        my $Kc = $K_closing_container->{$seqno};
+                        my $Km = $self->K_previous_nonblank($Kc);
+                        my $token_m =
+                          defined($Km) ? $rLL->[$Km]->[_TOKEN_] : 'b';
 
                         # ignore any optional ending comma
-                        if ( $type_m eq ',' ) {
+                        if ( $token_m eq ',' ) {
                             $Km = $self->K_previous_nonblank($Km);
-                            $type_m =
-                              defined($Km) ? $rLL->[$Km]->[_TYPE_] : 'b';
+                            $token_m =
+                              defined($Km) ? $rLL->[$Km]->[_TOKEN_] : 'b';
                         }
 
-                        $is_complex ||= $is_closing_type{$type_m};
+                        $is_complex ||=
+                          $is_closing_token{$token_m} && $token_m ne ')';
                     }
                 }