From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 23 Apr 2020 00:01:31 +0000 (-0700)
Subject: fix glitch with changing -sak
X-Git-Tag: 20200619~80
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=10f27501ed1212335e1854dfc60e0cefcb682868;p=perltidy.git

fix glitch with changing -sak
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index af5c455f..20ca883c 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -5807,7 +5807,7 @@ EOM
     # (at present, including them messes up vertical alignment)
     my @sak = qw(my local our and or err eq ne if else elsif until
       unless while for foreach return switch case given when catch);
-    @space_after_keyword{@sak} = (1) x scalar(@sak);
+    %space_after_keyword = map { $_ => 1 } @sak;
 
     # first remove any or all of these if desired
     if ( my @q = split_words( $rOpts->{'nospace-after-keyword'} ) ) {