put global my vars in a closure

diff --git a/lib/Perl/Tidy/HtmlWriter.pm b/lib/Perl/Tidy/HtmlWriter.pm
index 6972c4909553737708f3f7d8ca433a3f1a9db6ee..a8ba8e27a0a301cdea250a7b3c74077da39abce8 100644 (file)
--- 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 016be88d1fa20557b135c503377930a107d6cbc3..3e3117026aeb9fb46878ec129eda406a96dbb31a 100644 (file)
--- 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;