warn("not an object %s\n",(char *)SvPV_nolen(ST(0)));