diff options
author | David Mitchell <davem@iabyn.com> | 2011-02-05 14:23:57 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2011-02-06 21:34:43 +0000 |
commit | 572d598f754af334bea81530a84b95b5605fe3c4 (patch) | |
tree | 137c8488fcf0e6c744307a4cbff86c6e433ca7a3 /pp_hot.c | |
parent | 4b8811a5cd97a5737e826c610fd55a730539fbde (diff) | |
download | perl-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.c | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -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); |