remove needless code

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 97694262584c538c083075f1c35a8e86544bbf69..720763d873c57b3604356b30dc6e96f5ef73ae66 100644 (file)
--- 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 );
                     }