From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 20 Mar 2021 13:58:58 +0000 (-0700)
Subject: Fix issue git #57, Warn_count was not initialized
X-Git-Tag: 20210402~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b6d296af20c4618e336d5d2058488f98c43354f8;p=perltidy.git

Fix issue git #57, Warn_count was not initialized
---

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>