1 files changed, 1 insertions, 5 deletions
diff --git a/pp_hot.c b/pp_hot.c
index 88d42a5fb9..5a920d4d4d 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2320,11 +2320,7 @@ PP(pp_subst)
 	}
 	(void)SvPOK_only_UTF8(TARG);
 	TAINT_IF(rxtainted);
-	if (SvSMAGICAL(TARG)) {
-	    PUTBACK;
-	    mg_set(TARG);
-	    SPAGAIN;
-	}
+	SvSETMAGIC(TARG);
 	SvTAINT(TARG);
 	if (doutf8)
 	    SvUTF8_on(TARG);