generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-03-28 18:37:51 +01:00
Code Issues Projects Releases Wiki Activity

works correctly under Perl5.8.x.

Browse Source 
Perl5.8.x makes "a" as PVIV in {"a", 0}.
This commit is contained in:
Tokuhiro Matsuno 2009-06-24 14:36:37 +09:00
parent a961f646e5
commit 3aef3edbad
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
perl/pack.c
View File

@ -81,14 +81,6 @@ static void _msgpack_pack_sv(enc_t *enc, SV* val) {
} }
} }
break; break;
case SVt_PV:
{
STRLEN len;
char * cval = SvPV(val, len);
msgpack_pack_raw(enc, len);
msgpack_pack_raw_body(enc, cval, len);
}
break;
case SVt_NV: case SVt_NV:
PACK_WRAPPER(NVTYPE)(enc, SvNV(val)); PACK_WRAPPER(NVTYPE)(enc, SvNV(val));
break; break;
@ -126,8 +118,16 @@ static void _msgpack_pack_sv(enc_t *enc, SV* val) {
_msgpack_pack_sv(enc, SvRV(val)); _msgpack_pack_sv(enc, SvRV(val));
break; break;
default: default:
sv_dump(val); if (SvPOKp(val)) {
Perl_croak(aTHX_ "msgpack for perl doesn't supported this type: %d\n", SvTYPE(val)); STRLEN len;
char * cval = SvPV(val, len);
msgpack_pack_raw(enc, len);
msgpack_pack_raw_body(enc, cval, len);
return;
} else {
sv_dump(val);
Perl_croak(aTHX_ "msgpack for perl doesn't supported this type: %d\n", SvTYPE(val));
}
} }
} }