generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-03-19 04:52:59 +01:00
Code Issues Projects Releases Wiki Activity

Tweaks

Browse Source
This commit is contained in:
gfx 2010-09-15 13:20:20 +09:00
parent 6852a8ca9d
commit 859969241a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
perl/xs-src/unpack.c
View File

@ -190,8 +190,8 @@ STATIC_INLINE int template_callback_map_item(unpack_user* u PERL_UNUSED_DECL, SV
STATIC_INLINE int template_callback_raw(unpack_user* u PERL_UNUSED_DECL, const char* b PERL_UNUSED_DECL, const char* p, unsigned int l, SV** o) STATIC_INLINE int template_callback_raw(unpack_user* u PERL_UNUSED_DECL, const char* b PERL_UNUSED_DECL, const char* p, unsigned int l, SV** o)
{ {
dTHX; dTHX;
/* *o = newSVpvn_flags(p, l, SVs_TEMP); <= this does not work. */ /* newSVpvn_flags(p, l, SVs_TEMP) returns an undef if l == 0 */
*o = sv_2mortal((l==0) ? newSVpv("", 0) : newSVpv(p, l)); *o = ((l==0) ? newSVpvs_flags("", SVs_TEMP) : newSVpvn_flags(p, l, SVs_TEMP));
return 0; return 0;
} }