From 9ff3e0316575d7283973b27e66e4aa37258eaaa3 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 6 Oct 2022 06:49:39 -0700
Subject: [PATCH] remove needless code

---
 lib/Perl/Tidy/Formatter.pm | 1 -
 1 file changed, 1 deletion(-)

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 97694262..720763d8 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -8803,7 +8803,6 @@ sub keep_old_line_breaks {
                 # check for special matching codes
                 if ( !$match ) {
                     if ( $token eq '(' || $token eq ')' ) {
-                        my $seqno = $rLL->[$KK]->[_TYPE_SEQUENCE_];
                         $match =
                           $self->match_paren_control_flag( $seqno, $flag );
                     }
-- 
2.39.5