diff options
author | frsyuki <frsyuki@users.sourceforge.jp> | 2009-07-03 01:49:37 +0900 |
---|---|---|
committer | frsyuki <frsyuki@users.sourceforge.jp> | 2009-07-03 01:49:37 +0900 |
commit | 0f9dcb86100e34c7f10a19399cfa5dca3d4dcdbc (patch) | |
tree | 65b73da3e3d801a90b33db3cd0b5750e2f95dcd4 /perl/MessagePack.c | |
parent | 580fbe77e9301786234ae47bfa0300736d9d8a84 (diff) | |
download | msgpack-python-0f9dcb86100e34c7f10a19399cfa5dca3d4dcdbc.tar.gz |
perl: make PreferInteger variable magical and remove get_sv from _msgpack_pack_sv
Diffstat (limited to 'perl/MessagePack.c')
-rw-r--r-- | perl/MessagePack.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/perl/MessagePack.c b/perl/MessagePack.c index 3b33fee..f56d147 100644 --- a/perl/MessagePack.c +++ b/perl/MessagePack.c @@ -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); |