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