From 580fbe77e9301786234ae47bfa0300736d9d8a84 Mon Sep 17 00:00:00 2001
From: Tokuhiro Matsuno <tokuhirom@gmail.com>
Date: Thu, 2 Jul 2009 16:40:41 +0900
Subject: [PATCH] do not check the string longer than 10.

---
 perl/pack.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl/pack.c b/perl/pack.c
index c2d871a2..c8987fef 100644
--- a/perl/pack.c
+++ b/perl/pack.c
@@ -131,9 +131,10 @@ static void _msgpack_pack_sv(enc_t *enc, SV* val) {
         if (SvPOKp(val)) {
             STRLEN len;
             char * cval = SvPV(val, len);
+            const int U32_STRLEN = 10; /* length(0xFFFFFFFF) */
 
             SV* pref_int = get_sv("Data::MessagePack::PreferInteger", 0);
-            if (pref_int && SvTRUE(pref_int) && looks_like_int(cval, len) && SvUV(val) < U32_MAX) {
+            if (pref_int && SvTRUE(pref_int) && len <= U32_STRLEN && looks_like_int(cval, len) && SvUV(val) < U32_MAX) {
                 PACK_WRAPPER(uint32)(enc, SvUV(val));
                 return;
             }