From 2963db341fce0e4d0681d9820ef5e8ee2cac1e61 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 10 Aug 2021 17:01:27 -0700
Subject: [PATCH] Fix error in tokenizer, issue c055

---
 lib/Perl/Tidy/Tokenizer.pm | 2 +-
 local-docs/BugLog.pod      | 7 +++++++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 6519c7bb..e53381e9 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -1552,7 +1552,7 @@ sub prepare_for_a_new_file {
         (
             $routput_token_list,    $routput_token_type,
             $routput_block_type,    $routput_container_type,
-            $routput_type_sequence, $routput_type_sequence,
+            $routput_type_sequence, $routput_indent_flag,
         ) = @{$rTV2};
 
         (
diff --git a/local-docs/BugLog.pod b/local-docs/BugLog.pod
index 7c162ebf..0ad6352f 100644
--- a/local-docs/BugLog.pod
+++ b/local-docs/BugLog.pod
@@ -2,6 +2,13 @@
 
 =over 4
 
+=item B<Fix error in tokenizer, issue c055>
+
+The ultimate cause of the undefined variable reference in the previous issue was
+found to be a typo in the tokenizer.  This update finishes fixing issue c055.
+
+10 Aug 2021
+
 =item B<Fix undefined variable reference in development version>
 
 In testing, the following unbalanced snippet caused a reference to an undefined
-- 
2.39.5