From e2d2901db39354e2368cfbd6edcdf86739e42162 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 16 Oct 2022 18:07:08 -0700
Subject: [PATCH] minor fix for -mangle

---
 lib/Perl/Tidy/Formatter.pm | 1 +
 1 file changed, 1 insertion(+)

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;
-- 
2.39.5