From 0768cf17b61465ebc2fe5e0132e0494399eb94d1 Mon Sep 17 00:00:00 2001
From: gfx <gfuji@cpan.org>
Date: Wed, 15 Sep 2010 12:36:43 +0900
Subject: [PATCH] Taking NULL is a bug

---
 perl/xs-src/pack.c | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/perl/xs-src/pack.c b/perl/xs-src/pack.c
index 4378b05..7bad614 100644
--- a/perl/xs-src/pack.c
+++ b/perl/xs-src/pack.c
@@ -143,14 +143,13 @@ STATIC_INLINE int try_int(enc_t* enc, const char *p, size_t len) {
 
 static void _msgpack_pack_rv(enc_t *enc, SV* sv, int depth);
 
-STATIC_INLINE void _msgpack_pack_sv(enc_t *enc, SV* sv, int depth) {
+STATIC_INLINE void _msgpack_pack_sv(enc_t* const enc, SV* const sv, int const depth) {
     dTHX;
+    assert(sv);
     if (depth <= 0) Perl_croak(aTHX_ ERR_NESTING_EXCEEDED);
     SvGETMAGIC(sv);
 
-    if (sv==NULL) {
-        msgpack_pack_nil(enc);
-    } else if (SvPOKp(sv)) {
+    if (SvPOKp(sv)) {
         STRLEN len;
         char * csv = SvPV(sv, len);