diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-06-05 20:09:13 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-06-05 20:09:13 -0700 |
commit | c0b72abc47a28e2094e4ffc331df81433920bb63 (patch) | |
tree | 7986ec0c3a38d5e40fca043a495fe90311966f5f /universal.c | |
parent | 87d466f54d9f5a5f340ed74438cd3df5fdacb89a (diff) | |
download | perl-c0b72abc47a28e2094e4ffc331df81433920bb63.tar.gz |
Remove two pointless uses of sv_2mortal
boolSV returns an immortal. When sv_2mortal is called on
an immortal, it simply returns. So eliminate the call.
Diffstat (limited to 'universal.c')
-rw-r--r-- | universal.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/universal.c b/universal.c index a8113d0e6c..35d1bcc7fe 100644 --- a/universal.c +++ b/universal.c @@ -699,7 +699,6 @@ XS(XS_utf8_decode) if (SvIsCOW(sv)) sv_force_normal(sv); RETVAL = sv_utf8_decode(sv); ST(0) = boolSV(RETVAL); - sv_2mortal(ST(0)); } XSRETURN(1); } @@ -733,7 +732,6 @@ XS(XS_utf8_downgrade) const bool RETVAL = sv_utf8_downgrade(sv, failok); ST(0) = boolSV(RETVAL); - sv_2mortal(ST(0)); } XSRETURN(1); } |