From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 8 Jul 2024 22:06:20 +0000 (-0700)
Subject: fix issue found by applying -dmr to perltidy
X-Git-Tag: 20240511.05~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f6118d11249830bf3ceedab37a33c1488ad2374a;p=perltidy.git

fix issue found by applying -dmr to perltidy
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 7060d19a..41b9f6d0 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -37403,8 +37403,7 @@ sub set_vertical_tightness_flags {
 
             my $is_semicolon_terminated;
             if ( $n + 1 == $n_last_line ) {
-                my ( $terminal_type, $i_terminal ) =
-                  terminal_type_i( $ibeg_next, $iend_next );
+                my $terminal_type = terminal_type_i( $ibeg_next, $iend_next );
                 $is_semicolon_terminated = $terminal_type eq ';'
                   && $nesting_depth_to_go[$iend_next] <
                   $nesting_depth_to_go[$ibeg_next];