From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 3 Sep 2020 01:20:46 +0000 (-0700)
Subject: avoid repeated error messages on bad -kgb input
X-Git-Tag: 20200907~11
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5f5da90bacbd4a5e32da696244e0de436e264133;p=perltidy.git

avoid repeated error messages on bad -kgb input
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 48ec1c01..df103c54 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -900,6 +900,9 @@ sub keyword_group_scan {
 Unexpected value for -kgbs: '$Opt_size'; expecting 'min' or 'min.max'; 
 ignoring all -kgb flags
 EOM
+	# Turn this option off so that this message does not keep repeating
+	# during iterations and other files.
+        $rOpts->{'keyword-group-blanks-size'} = "";
         return $rhash_of_desires;
     }
     $Opt_size_min = 1 unless ($Opt_size_min);