From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 28 May 2023 00:36:05 +0000 (-0700)
Subject: add a clarifying comment
X-Git-Tag: 20230309.03~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c60fbe199334a68fd9b2998b083adcbf8b46d410;p=perltidy.git

add a clarifying comment
---

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 202f0cd5..4ea6138d 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -6048,6 +6048,8 @@ EOM
         # Loop over tokens
         #-----------------
         my $rtoken_map_im;
+
+        # $i is the index of the pretoken which starts this full token
         foreach my $i ( @{$routput_token_list} ) {
 
             my $type_i = $routput_token_type->[$i];