summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-12-28 19:11:34 -0800
committerFather Chrysostomos <sprout@cpan.org>2014-12-28 19:11:34 -0800
commit3cb4e04f6580a268b63eec5535af8d7455697971 (patch)
tree35c640a1eb5c963b42fb2ed2acb4ea74716b1105 /pp.c
parentd3261b99be3c97f17dbd8874de53a72cc328b6e7 (diff)
downloadperl-3cb4e04f6580a268b63eec5535af8d7455697971.tar.gz
pp.c:pp_[ul]c(first): No need for PUTBACK
We don’t manipulate the stack pointer at all here.
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/pp.c b/pp.c
index 5955e9ade8..0de266c5c8 100644
--- a/pp.c
+++ b/pp.c
@@ -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)