From: SADAHIRO Tomoyuki <BQW10602@nifty.com>
Date: Thu, 1 Jun 2006 08:16:51 +0000 (+0900)
Subject: Revert change #20462 (except the regression test),
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e0ed22481119613bc6d3a17428243331117368c8;p=p5sagit%2Fp5-mst-13.2.git

Revert change #20462 (except the regression test),
since the bug has been really fixed by change #22074,
as explained in :
Subject: Re: [perl #39247] defined-ness of substrings disappear over repeated calls
Message-Id: <20060601081304.7A39.BQW10602@nifty.com>
p4raw-link: @22074 on //depot/perl: 028c96ebc8db5bddc2fee91a32f93bb4050b53cf
p4raw-link: @20462 on //depot/perl: 6214ab63745c28e26e752f88d98bf89671cabc77

p4raw-id: //depot/perl@28370
---

diff --git a/pp.c b/pp.c
index fb220a0..8100336 100644
--- a/pp.c
+++ b/pp.c
@@ -3126,8 +3126,6 @@ PP(pp_substr)
 		sv_upgrade(TARG, SVt_PVLV);
 		sv_magic(TARG, NULL, PERL_MAGIC_substr, NULL, 0);
 	    }
-	    else
-		SvOK_off(TARG);
 
 	    LvTYPE(TARG) = 'x';
 	    if (LvTARG(TARG) != sv) {