add a clarifying comment

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 202f0cd58db140270c998653bf2ad68e145d47dd..4ea6138d61cf5a0e7050d594ae0bce2183e2d6e6 100644 (file)
--- 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];