generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-10-21 23:56:55 +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
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;
assert(sv);
assert(sv_isobject(sv));
if(!SvOK(sv)) {
croak("Oops: Failed to load %"SVf, name);
}
return sv;
}