From 07e68aa6945e4be0820f9c53a3cc1bbbb041a556 Mon Sep 17 00:00:00 2001
From: gfx <gfuji@cpan.org>
Date: Wed, 15 Sep 2010 14:20:32 +0900
Subject: [PATCH] Fix an usage message

---
 perl/xs-src/unpack.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/xs-src/unpack.c b/perl/xs-src/unpack.c
index 9500212c..c4ac22fd 100644
--- a/perl/xs-src/unpack.c
+++ b/perl/xs-src/unpack.c
@@ -310,7 +310,7 @@ STATIC_INLINE SV* _execute_impl(SV* self, SV* data, UV off, size_t limit) {
 XS(xs_unpacker_execute) {
     dXSARGS;
     if (items != 3) {
-        Perl_croak(aTHX_ "Usage: $unpacker->execute_limit(data, off)");
+        Perl_croak(aTHX_ "Usage: $unpacker->execute(data, off)");
     }
 
 	UNPACKER(ST(0), mp);