fix localization in while BLOCK when there is a continue BLOCK

by introducing an explicit scope (c.f. change#4848)

p4raw-link: @4848 on //depot/perl: 1ee987245c095afd177d3e2ca6255cec8dbb53ca

p4raw-id: //depot/perl@4849

1 files changed, 3 insertions, 0 deletions

diff --git a/op.c b/op.c
index cdb4b231b0..06b6a7066a 100644
--- a/op.c
+++ b/op.c
@@ -3753,6 +3753,9 @@ Perl_newWHILEOP(pTHX_ I32 flags, I32 debuggable, LOOP *loop, I32 whileline, OP *
 
     if (!block)
 	block = newOP(OP_NULL, 0);
+    else if (cont) {
+	block = scope(block);
+    }
 
     if (cont)
 	next = LINKLIST(cont);