minor fix for -mangle

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 86fff76237a8bc962316ceca496ac2175a0c360b..b2258afa94f98216537f66981198b5c3d811e194 100644 (file)
--- 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;