diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-16 11:41:10 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-10-16 11:41:10 +0100 |
| commit | 8a8fad9addd88c65ee8b18b0e45b2ed9a18987f8 (patch) | |
| tree | fb098b1c26f75df0eef3406af8ac446a3421f553 /dist/threads-shared | |
| parent | afce0a13caf9540b17869e0f39804bd5e44199c7 (diff) | |
| download | perl-8a8fad9addd88c65ee8b18b0e45b2ed9a18987f8.tar.gz | |
Convert sv_2mortal(newSVpvn_utf8(...)) to newSVpvn_flags()
Diffstat (limited to 'dist/threads-shared')
| -rw-r--r-- | dist/threads-shared/shared.pm | 2 | ||||
| -rw-r--r-- | dist/threads-shared/shared.xs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/dist/threads-shared/shared.pm b/dist/threads-shared/shared.pm index b1b4552431..5a973614a3 100644 --- a/dist/threads-shared/shared.pm +++ b/dist/threads-shared/shared.pm @@ -7,7 +7,7 @@ use warnings; use Scalar::Util qw(reftype refaddr blessed); -our $VERSION = '1.31'; +our $VERSION = '1.32'; my $XS_VERSION = $VERSION; $VERSION = eval $VERSION; diff --git a/dist/threads-shared/shared.xs b/dist/threads-shared/shared.xs index b9a324191b..7c9526e2bb 100644 --- a/dist/threads-shared/shared.xs +++ b/dist/threads-shared/shared.xs @@ -1323,7 +1323,7 @@ FIRSTKEY(SV *obj) I32 utf8 = HeKUTF8(entry); key = hv_iterkey(entry,&len); CALLER_CONTEXT; - ST(0) = sv_2mortal(newSVpvn_utf8(key, len, utf8)); + ST(0) = newSVpvn_flags(key, len, SVs_TEMP | (utf8 ? SVf_UTF8 : 0)); } else { CALLER_CONTEXT; ST(0) = &PL_sv_undef; @@ -1350,7 +1350,7 @@ NEXTKEY(SV *obj, SV *oldkey) I32 utf8 = HeKUTF8(entry); key = hv_iterkey(entry,&len); CALLER_CONTEXT; - ST(0) = sv_2mortal(newSVpvn_utf8(key, len, utf8)); + ST(0) = newSVpvn_flags(key, len, SVs_TEMP | (utf8 ? SVf_UTF8 : 0)); } else { CALLER_CONTEXT; ST(0) = &PL_sv_undef; |