More useful error messages

This commit is contained in:
gfx 2010-09-15 15:06:03 +09:00
parent 11cde61eab
commit a11165830b

View File

@ -294,7 +294,7 @@ STATIC_INLINE SV* _execute_impl(SV* self, SV* data, UV off, size_t limit) {
int ret; int ret;
if(from >= limit) { 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); ret = template_execute(mp, dptr, limit, &from);