summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-12-20 05:06:13 -0800
committerFather Chrysostomos <sprout@cpan.org>2014-12-20 05:29:45 -0800
commitff94d24c25095d8424bbf5d982a0bc5c1e6fbece (patch)
treeed936eba6ba1a3f50162cea26e5c59d495c4f9d5 /dump.c
parente026fc88d21a3ce88941ee3a71e5d34982ee577a (diff)
downloadperl-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/dump.c b/dump.c
index 82f16fd63f..853ca23dd7 100644
--- a/dump.c
+++ b/dump.c
@@ -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];