summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2011-02-05 14:23:57 +0000
committerDavid Mitchell <davem@iabyn.com>2011-02-06 21:34:43 +0000
commit572d598f754af334bea81530a84b95b5605fe3c4 (patch)
tree137c8488fcf0e6c744307a4cbff86c6e433ca7a3 /pp_hot.c
parent4b8811a5cd97a5737e826c610fd55a730539fbde (diff)
downloadperl-572d598f754af334bea81530a84b95b5605fe3c4.tar.gz
pp_subst: remove a superflous PUTBACK/SPAGAIN
These were added around a mg_set() call before the stack-of-stacks mechanism was introduced, which has made them redundant. This is another step in making two branches of code more identical
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c6
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);