From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 12 Sep 2020 23:20:36 +0000 (-0700)
Subject: fixed undefined index
X-Git-Tag: 20200907.01~13
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=616bb884dd625b7da34a0e6893981e97c60d9bf4;p=perltidy.git

fixed undefined index
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 8c1ff4c6..b13c4a5a 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -7204,6 +7204,7 @@ sub tight_paren_follows {
     my $seqno_o = $rLL->[$K_oc]->[_TYPE_SEQUENCE_];
     my $K_io    = $self->[_K_opening_container_]->{$seqno_i};
     my $K_oo    = $self->[_K_opening_container_]->{$seqno_o};
+    return unless ( defined($K_io) && defined($K_oo) );
 
     # RULE 1: Do not break before a closing signature paren
     # (regardless of complexity).  This is a fix for issue git#22.