diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-12-28 19:11:34 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-28 19:11:34 -0800 |
commit | 3cb4e04f6580a268b63eec5535af8d7455697971 (patch) | |
tree | 35c640a1eb5c963b42fb2ed2acb4ea74716b1105 | |
parent | d3261b99be3c97f17dbd8874de53a72cc328b6e7 (diff) | |
download | perl-3cb4e04f6580a268b63eec5535af8d7455697971.tar.gz |
pp.c:pp_[ul]c(first): No need for PUTBACK
We don’t manipulate the stack pointer at all here.
-rw-r--r-- | pp.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -3763,7 +3763,7 @@ PP(pp_ucfirst) if (dest != source && SvTAINTED(source)) SvTAINT(dest); SvSETMAGIC(dest); - RETURN; + return NORMAL; } /* There's so much setup/teardown code common between uc and lc, I wonder if @@ -4020,7 +4020,7 @@ PP(pp_uc) if (dest != source && SvTAINTED(source)) SvTAINT(dest); SvSETMAGIC(dest); - RETURN; + return NORMAL; } PP(pp_lc) @@ -4146,7 +4146,7 @@ PP(pp_lc) if (dest != source && SvTAINTED(source)) SvTAINT(dest); SvSETMAGIC(dest); - RETURN; + return NORMAL; } PP(pp_quotemeta) |