From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 15 Aug 2023 00:10:43 +0000 (-0700)
Subject: minor optimization
X-Git-Tag: 20230701.03~18
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=39b0904310914c13e8e0b7badc7b1e8f080bd614;p=perltidy.git

minor optimization
---

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 2f7c471a..d46e9b20 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -5722,6 +5722,7 @@ EOM
             foreach my $i ( @{$routput_token_list} ) {
                 my $numc = $rtoken_map->[$i] - $offset;
                 push( @tokens, substr( $input_line, $offset, $numc ) );
+                $offset += $numc;
 
                 if ( DEVEL_MODE && $numc <= 0 ) {
 
@@ -5729,7 +5730,6 @@ EOM
                     $self->Fault(
                         "number of characters is '$numc' but should be >0\n");
                 }
-                $offset = $rtoken_map->[$i];
             }
 
             # Form and store the final token of this line