Fix bug #17776 : memory corruption in qr/##/x

p4raw-id: //depot/perl@17994

1 files changed, 1 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 201704551d..f5b98491f5 100644
--- a/sv.c
+++ b/sv.c
@@ -3006,6 +3006,7 @@ Perl_sv_2pv_flags(pTHX_ register SV *sv, STRLEN *lp, I32 flags)
                                            need a newline */
                                         mg->mg_len++; /* save space for it */
                                         need_newline = 1; /* note to add it */
+					break;
                                     }
                                 }
                             }