From 4f1207a38c39b9b7284f4d28012e4f76fa0b437e Mon Sep 17 00:00:00 2001
From: "Fuji, Goro" <gfuji@cpan.org>
Date: Tue, 12 Oct 2010 23:05:58 +0900
Subject: [PATCH] perl: add a strong assertion

---
 perl/xs-src/unpack.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/perl/xs-src/unpack.c b/perl/xs-src/unpack.c
index caf86623..e997af55 100644
--- a/perl/xs-src/unpack.c
+++ b/perl/xs-src/unpack.c
@@ -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;
 }