generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-03-31 07:58:20 +02:00
Code Issues Projects Releases Wiki Activity

perl: add a strong assertion

Browse Source
This commit is contained in:
Fuji, Goro 2010-10-12 23:05:58 +09:00
parent 2b65f81e23
commit 4f1207a38c
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
perl/xs-src/unpack.c
View File

@ -65,6 +65,9 @@ load_bool(pTHX_ const char* const name) {
LEAVE; LEAVE;
assert(sv); assert(sv);
assert(sv_isobject(sv)); assert(sv_isobject(sv));
if(!SvOK(sv)) {
croak("Oops: Failed to load %"SVf, name);
}
return sv; return sv;
} }