perl: make PreferInteger variable magical and remove get_sv from _msgpack_pack_sv

This commit is contained in:
frsyuki
2009-07-03 01:49:37 +09:00
parent 580fbe77e9
commit 0f9dcb8610
3 changed files with 38 additions and 2 deletions

View File

@@ -19,10 +19,14 @@ XS(xs_unpacker_is_finished);
XS(xs_unpacker_data);
XS(xs_unpacker_reset);
void boot_Data__MessagePack_pack(void);
XS(boot_Data__MessagePack) {
dXSARGS;
HV * stash;
boot_Data__MessagePack_pack();
newXS("Data::MessagePack::pack", xs_pack, __FILE__);
newXS("Data::MessagePack::unpack", xs_unpack, __FILE__);
stash = gv_stashpvn("Data::MessagePack", strlen("Data::MessagePack"), TRUE);