X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp.c;h=2958fba4bf10290bde1e113b85514ad7900e4c88;hb=75d1b5dfc310050618a644104f03818db57b4915;hp=8a7632af3970df440d18538a4c3c03b6d643aaeb;hpb=56c23875455dc584da216861db318a64cf965f33;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp.c b/pp.c
index 8a7632a..2958fba 100644
--- a/pp.c
+++ b/pp.c
@@ -3111,6 +3111,8 @@ PP(pp_substr)
 		sv_upgrade(TARG, SVt_PVLV);
 		sv_magic(TARG, Nullsv, PERL_MAGIC_substr, Nullch, 0);
 	    }
+	    else
+		(void)SvOK_off(TARG);
 
 	    LvTYPE(TARG) = 'x';
 	    if (LvTARG(TARG) != sv) {