diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-03 17:15:53 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-03 17:15:53 +0000 |
| commit | 59cd0e26eb6c10499b25d783562357dd68cc16f2 (patch) | |
| tree | 68198e7261586c25728270515fa4f9f3acd7735c /hv.c | |
| parent | d16d613cbabd929abf5d13edb895c38c5a99bc29 (diff) | |
| download | perl-59cd0e26eb6c10499b25d783562357dd68cc16f2.tar.gz | |
Extend newSVpvn_flags() to also call sv_2mortal() if SVs_TEMP is set in
the flags. Move its implementation just ahead of sv_2mortal()'s for
CPU cache locality. Refactor all code that can be to use this.
p4raw-id: //depot/perl@32818
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -350,8 +350,9 @@ Perl_hv_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, SV* obj = mg->mg_obj; if (!keysv) { - keysv = sv_2mortal(newSVpvn_utf8(key, klen, - flags & HVhek_UTF8)); + keysv = newSVpvn_flags(key, klen, SVs_TEMP | + ((flags & HVhek_UTF8) + ? SVf_UTF8 : 0)); } mg->mg_obj = keysv; /* pass key */ @@ -913,7 +914,7 @@ S_hv_delete_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, #ifdef ENV_IS_CASELESS else if (mg_find((SV*)hv, PERL_MAGIC_env)) { /* XXX This code isn't UTF8 clean. */ - keysv = sv_2mortal(newSVpvn(key,klen)); + keysv = newSVpvn_flags(key, klen, SVs_TEMP); if (k_flags & HVhek_FREEKEY) { Safefree(key); } |