avoid repeated error messages on bad -kgb input

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 48ec1c0142c13e0257cbc8720ef5bfa44f10dcf0..df103c54ce832520bb5541d4cecf87e13c1beea8 100644 (file)
--- 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);