summaryrefslogtreecommitdiff
path: root/perl/MessagePack.c
diff options
context:
space:
mode:
authorfrsyuki <frsyuki@users.sourceforge.jp>2009-07-03 01:49:37 +0900
committerfrsyuki <frsyuki@users.sourceforge.jp>2009-07-03 01:49:37 +0900
commit0f9dcb86100e34c7f10a19399cfa5dca3d4dcdbc (patch)
tree65b73da3e3d801a90b33db3cd0b5750e2f95dcd4 /perl/MessagePack.c
parent580fbe77e9301786234ae47bfa0300736d9d8a84 (diff)
downloadmsgpack-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.c4
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);