Fix an usage message

This commit is contained in:
gfx 2010-09-15 14:20:32 +09:00
parent 0ae206b1bb
commit 07e68aa694

View File

@ -310,7 +310,7 @@ STATIC_INLINE SV* _execute_impl(SV* self, SV* data, UV off, size_t limit) {
XS(xs_unpacker_execute) { XS(xs_unpacker_execute) {
dXSARGS; dXSARGS;
if (items != 3) { if (items != 3) {
Perl_croak(aTHX_ "Usage: $unpacker->execute_limit(data, off)"); Perl_croak(aTHX_ "Usage: $unpacker->execute(data, off)");
} }
UNPACKER(ST(0), mp); UNPACKER(ST(0), mp);