From a11165830bc6075c39978adcb72af07d5d7c6234 Mon Sep 17 00:00:00 2001
From: gfx <gfuji@cpan.org>
Date: Wed, 15 Sep 2010 15:06:03 +0900
Subject: [PATCH] More useful error messages

---
 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 2d659b4b..9ccc44ad 100644
--- a/perl/xs-src/unpack.c
+++ b/perl/xs-src/unpack.c
@@ -294,7 +294,7 @@ STATIC_INLINE SV* _execute_impl(SV* self, SV* data, UV off, size_t limit) {
 	int ret;
 
 	if(from >= limit) {
-        Perl_croak(aTHX_ "offset is bigger than data buffer size.");
+        Perl_croak(aTHX_ "offset (%lu) is bigger than data buffer size (%lu)", (unsigned long)off, (unsigned long)limit);
 	}
 
 	ret = template_execute(mp, dptr, limit, &from);