generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-10-13 14:45:38 +02:00
Code Issues Projects Releases Wiki Activity

perl: added argument check

Browse Source
This commit is contained in:
Tokuhiro Matsuno
2009-04-15 23:11:26 +09:00
parent e0bd2a2911
commit b140b27b9a
2 changed files with 27 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
perl/pack.c
View File

@@ -136,7 +136,9 @@ static void _msgpack_pack_sv(enc_t *enc, SV* val) {
XS(xs_pack) {
dXSARGS;
PERL_UNUSED_VAR(items); /* TODO: check argument count */
if (items != 2) {
Perl_croak(aTHX_ "Usage: Data::MessagePack->pack($dat)");
}
SV* val = ST(1);