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);