diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-12-20 05:06:13 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-20 05:29:45 -0800 |
commit | ff94d24c25095d8424bbf5d982a0bc5c1e6fbece (patch) | |
tree | ed936eba6ba1a3f50162cea26e5c59d495c4f9d5 /dump.c | |
parent | e026fc88d21a3ce88941ee3a71e5d34982ee577a (diff) | |
download | perl-ff94d24c25095d8424bbf5d982a0bc5c1e6fbece.tar.gz |
dump.c:unop_aux_stringify: Use newSVpvn_flags
newSVpvn_flags with SVs_TEMP takes less machine code than
sv_2mortal(newSVpv()).
Diffstat (limited to 'dump.c')
-rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2336,7 +2336,7 @@ Perl_unop_aux_stringify(pTHX_ const OP *o, CV *cv) bool last = 0; bool is_hash = FALSE; int derefs = 0; - SV *out = sv_2mortal(newSVpv("",0)); + SV *out = newSVpvn_flags("",0,SVs_TEMP); #ifdef USE_ITHREADS PADLIST * const padlist = CvPADLIST(cv); PAD *comppad = PadlistARRAY(padlist)[1]; |