Stowage/msgpack-python
2
0
Fork 0
mirror of https://github.com/msgpack/msgpack-python.git synced 2026-02-06 17:59:52 +00:00
Code Issues Projects Releases Packages Wiki Activity

Perl: use SvNOK.

Browse source
This commit is contained in:
Tokuhiro Matsuno 2009-07-03 18:18:40 +09:00
parent cb5c878b77
commit 661f273481
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
perl/pack.c
View file

@ -163,9 +163,6 @@ static void _msgpack_pack_sv(enc_t *enc, SV* val) {
}
}
break;
case SVt_NV:
PACK_WRAPPER(NVTYPE)(enc, SvNV(val));
break;
case SVt_PVAV:
{
AV* ary = (AV*)val;
@ -212,6 +209,8 @@ static void _msgpack_pack_sv(enc_t *enc, SV* val) {
msgpack_pack_uint32(enc, SvUV(val));
} else if (SvIOK(val)) {
PACK_WRAPPER(IVTYPE)(enc, SvIV(val));
} else if (SvNOK(val)) {
PACK_WRAPPER(NVTYPE)(enc, SvNV(val));
} else {
sv_dump(val);
Perl_croak(aTHX_ "msgpack for perl doesn't supported this type: %d\n", SvTYPE(val));