From 6852a8ca9d8585fd42ec761900d334ae964732c9 Mon Sep 17 00:00:00 2001
From: gfx <gfuji@cpan.org>
Date: Wed, 15 Sep 2010 13:16:55 +0900
Subject: [PATCH] Remove an unused function: xs_unpack_limit

---
 perl/xs-src/unpack.c | 15 ---------------
 1 file changed, 15 deletions(-)

diff --git a/perl/xs-src/unpack.c b/perl/xs-src/unpack.c
index e3bb901e..5e757173 100644
--- a/perl/xs-src/unpack.c
+++ b/perl/xs-src/unpack.c
@@ -235,21 +235,6 @@ STATIC_INLINE SV* _msgpack_unpack(SV* data, size_t limit PERL_UNUSED_DECL) {
 	}
 }
 
-XS(xs_unpack_limit) {
-    dXSARGS;
-
-    if (items != 3) {
-        Perl_croak(aTHX_ "Usage: Data::MessagePack->unpack('datadata', $limit)");
-    }
-
-    {
-        int limit = SvIV(ST(2));
-        ST(0) = _msgpack_unpack(ST(1), limit);
-    }
-    XSRETURN(1);
-}
-
-
 XS(xs_unpack) {
     dXSARGS;
     SV* const data = ST(1);