From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 29 Aug 2022 16:21:01 +0000 (-0700)
Subject: simplification
X-Git-Tag: 20220613.05~19
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=57c9092e91c61a1603e4da6c38277ce5e1736879;p=perltidy.git

simplification
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 262ddcae..baf30290 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -19111,9 +19111,8 @@ EOM
             $block_type    = $block_type_to_go[$i];
             $token         = $tokens_to_go[$i];
             $type_sequence = $type_sequence_to_go[$i];
-            my $next_type       = $types_to_go[ $i + 1 ];
-            my $next_token      = $tokens_to_go[ $i + 1 ];
-            my $i_next_nonblank = ( ( $next_type eq 'b' ) ? $i + 2 : $i + 1 );
+
+            my $i_next_nonblank = $inext_to_go[$i];
             $next_nonblank_type       = $types_to_go[$i_next_nonblank];
             $next_nonblank_token      = $tokens_to_go[$i_next_nonblank];
             $next_nonblank_block_type = $block_type_to_go[$i_next_nonblank];