From b6d296af20c4618e336d5d2058488f98c43354f8 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 20 Mar 2021 06:58:58 -0700
Subject: [PATCH] Fix issue git #57, Warn_count was not initialized

---
 lib/Perl/Tidy.pm      | 3 +++
 local-docs/BugLog.pod | 9 ++++++++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 14fe9035..19344d02 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -419,6 +419,9 @@ sub perltidy {
         postfilter            => undef,
     );
 
+    # Fix for issue git #57
+    $Warn_count = 0;
+
     # don't overwrite callers ARGV
     local @ARGV   = @ARGV;
     local *STDERR = *STDERR;
diff --git a/local-docs/BugLog.pod b/local-docs/BugLog.pod
index dc134cf1..856f1237 100644
--- a/local-docs/BugLog.pod
+++ b/local-docs/BugLog.pod
@@ -2,6 +2,13 @@
 
 =over 4
 
+=item B<Fix issue git #57, Warn_count was not initialized>
+
+This update fixes issue git #57, in which a warning flag was not getting zeroed
+on each new call to perltidy.
+
+19 Mar 2021.
+
 =item B<Fix rare problem with combination -lp -wn -naws>
 
 This update fixes case b1032 by includeing lines starting with 'if', 'or', and
@@ -12,7 +19,7 @@ This update also modifies update 7a6be43 of 16 Mar 2021 to exclude list items
 when checking token lengths.  This reduces changes to existing formatting
 while still fixing the problem in case b1031. 
 
-18 Mar 2021.
+18 Mar 2021, 6200034.
 
 =item B<Fix definition of list within list for -bbx flags>
 
-- 
2.39.5