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 (file)
--- 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) {