From c60fbe199334a68fd9b2998b083adcbf8b46d410 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 27 May 2023 17:36:05 -0700
Subject: [PATCH] add a clarifying comment

---
 lib/Perl/Tidy/Tokenizer.pm | 2 ++
 1 file changed, 2 insertions(+)

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];
-- 
2.39.5