From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 17 Oct 2022 01:07:08 +0000 (-0700)
Subject: minor fix for -mangle
X-Git-Tag: 20221112~40
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e2d2901db39354e2368cfbd6edcdf86739e42162;p=perltidy.git

minor fix for -mangle
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 86fff762..b2258afa 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -14465,6 +14465,7 @@ EOM
                         if (   $next_nonblank_token eq ','
                             && $Knnb eq $K_last
                             && $block_type eq 'do'
+                            && $rOpts_add_newlines
                             && $self->is_trailing_comma($Knnb) )
                         {
                             $self->[_rbreak_after_Klast_]->{$K_last} = 1;