X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=xs-src%2FMouse.xs;h=7800a86a720d16a22924e3d097d12e4876d1fbaa;hp=a7d8dec91e4e82afed150e98225654244cc488e5;hb=31113a4a9ce776118909d8a019af3e784d21d909;hpb=6ad77996af3989f512a308404b2593c369d18e14 diff --git a/xs-src/Mouse.xs b/xs-src/Mouse.xs index a7d8dec..7800a86 100644 --- a/xs-src/Mouse.xs +++ b/xs-src/Mouse.xs @@ -590,10 +590,9 @@ CODE: AV* demolishall; I32 len, i; - PERL_UNUSED_VAR(ix); - if(!IsObject(object)){ - croak("You must not call DESTROY as a class method"); + croak("You must not call %s as a class method", + ix == 0 ? "DESTROY" : "DEMOLISHALL"); } if(SvOK(meta)){