From 10f27501ed1212335e1854dfc60e0cefcb682868 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Wed, 22 Apr 2020 17:01:31 -0700 Subject: [PATCH] fix glitch with changing -sak --- lib/Perl/Tidy/Formatter.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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'} ) ) { -- 2.39.5