From 34ed3bc9e3a3d97db8c8254056559553e4fda969 Mon Sep 17 00:00:00 2001
From: Tokuhiro Matsuno <tokuhirom@gmail.com>
Date: Fri, 3 Jul 2009 18:09:38 +0900
Subject: [PATCH] Perl: check IV by SvIOK

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

diff --git a/perl/pack.c b/perl/pack.c
index b1e56778..90b18aa1 100644
--- a/perl/pack.c
+++ b/perl/pack.c
@@ -150,13 +150,6 @@ static void _msgpack_pack_sv(enc_t *enc, SV* val) {
     case SVt_NULL:
         msgpack_pack_nil(enc);
         break;
-    case SVt_IV:
-        if (SvIOK_UV(val)) {
-            msgpack_pack_uint32(enc, SvUV(val));
-        } else {
-            PACK_WRAPPER(IVTYPE)(enc, SvIV(val));
-        }
-        break;
     case SVt_PVNV:
         {
             STRLEN len = 0;
@@ -215,6 +208,10 @@ static void _msgpack_pack_sv(enc_t *enc, SV* val) {
             msgpack_pack_raw(enc, len);
             msgpack_pack_raw_body(enc, cval, len);
             return;
+        } else if (SvIOK_UV(val)) {
+            msgpack_pack_uint32(enc, SvUV(val));
+        } else if (SvIOK(val)) {
+            PACK_WRAPPER(IVTYPE)(enc, SvIV(val));
         } else {
             sv_dump(val);
             Perl_croak(aTHX_ "msgpack for perl doesn't supported this type: %d\n", SvTYPE(val));