(retracted by 13077)

Subject: [PATCH] Re: [ID 20010809.028] x operator not copying elements in 'for' list?
Message-ID: <20010810144202.A32754@puffinry.freeserve.co.uk>

p4raw-id: //depot/perl@11635

1 files changed, 4 insertions, 2 deletions

diff --git a/pp.c b/pp.c
index 1cb3a44882..a051268126 100644
--- a/pp.c
+++ b/pp.c
@@ -1139,8 +1139,10 @@ PP(pp_repeat)
 	MEXTEND(MARK, max);
 	if (count > 1) {
 	    while (SP > MARK) {
-		if (*SP)
-		    SvTEMP_off((*SP));
+		if (*SP) {
+		    *SP = sv_2mortal(newSVsv(*SP));
+		    SvREADONLY_on(*SP);
+		}
 		SP--;
 	    }
 	    MARK++;