From eb2409fa8ec0edc23198ae184b54afb13613c0b4 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 13 Oct 2023 12:45:56 -0700
Subject: [PATCH] put global my vars in a closure

---
 lib/Perl/Tidy/HtmlWriter.pm | 4 ++++
 lib/Perl/Tidy/Tokenizer.pm  | 4 ++++
 2 files changed, 8 insertions(+)

diff --git a/lib/Perl/Tidy/HtmlWriter.pm b/lib/Perl/Tidy/HtmlWriter.pm
index 6972c490..a8ba8e27 100644
--- a/lib/Perl/Tidy/HtmlWriter.pm
+++ b/lib/Perl/Tidy/HtmlWriter.pm
@@ -15,6 +15,8 @@ use File::Basename;
 use constant EMPTY_STRING => q{};
 use constant SPACE        => q{ };
 
+{ #<<< A non-indenting brace to contain all lexical variables
+
 # class variables
 my (
 
@@ -1543,4 +1545,6 @@ EOM
     $html_pre_fh->print("$html_line\n");
     return;
 } ## end sub write_line
+
+} ## end package Perl::Tidy::HtmlWriter
 1;
diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 016be88d..3e311702 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -41,6 +41,8 @@ use constant DEVEL_MODE   => 0;
 use constant EMPTY_STRING => q{};
 use constant SPACE        => q{ };
 
+{ #<<< A non-indenting brace to contain all lexical variables
+
 # Parent sequence number of tree of containers; must be 1
 use constant SEQ_ROOT => 1;
 
@@ -11018,4 +11020,6 @@ BEGIN {
         '<' => '>',
     );
 } ## end BEGIN
+
+} ## end package Perl::Tidy::Tokenizer
 1;
-- 
2.39.5