summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorSADAHIRO Tomoyuki <BQW10602@nifty.com>2006-06-01 17:16:51 +0900
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-06-07 20:47:20 +0000
commite0ed22481119613bc6d3a17428243331117368c8 (patch)
tree437226a4950c980ba3a7a6a1b1780446b1f4f4e7 /pp.c
parent11fa0b78eca9aeb73e60c3c38453c695768dc818 (diff)
downloadperl-e0ed22481119613bc6d3a17428243331117368c8.tar.gz
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
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/pp.c b/pp.c
index fb220a0f6d..8100336e5e 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) {