From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 27 Sep 2024 01:39:39 +0000 (-0700)
Subject: do not add a , after a =>
X-Git-Tag: 20240903.04~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cd5e2684b9b77fe4147893ecfe1ee749e3cb425c;p=perltidy.git

do not add a , after a =>
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 5373c74d..724ec313 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -12570,6 +12570,10 @@ sub respace_tokens_inner_loop {
                                             $last_nonblank_code_type}
                                     )
                                 )
+
+                                # and not preceded by '=>'
+                                # (unusual but can occur in test files)
+                                && $last_nonblank_code_type ne '=>'
                               )
                             {
                                 my $rule = $trailing_comma_rules{add};