Fix error in tokenizer, issue c055

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 6519c7bbcb2161ca21fb236af8ca5c690e118599..e53381e92252f7bd96094321a321a7731fa68acf 100644 (file)
--- 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 7c162ebff669062101c2b533d02b5ab1421a7bb2..0ad6352f0518df36a322adac11131110e62433e2 100644 (file)
--- 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