X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_hot.c;h=2f2876bac982c87e3c0ae3c54030e32d548b3af8;hb=19b95bf092bc6fdb9455fe107fc46111b0a1ec31;hp=83ed6135cc6d38e6c0135e381fe460fc4e48a6d6;hpb=84f64f45c90987f3228c0b57886fceba4991c2aa;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp_hot.c b/pp_hot.c
index 83ed613..2f2876b 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -3024,6 +3024,7 @@ S_method_common(pTHX_ SV* meth, U32* hashp)
 		     && SvOBJECT(ob))))
     {
 	Perl_croak(aTHX_ "Can't call method \"%s\" on unblessed reference",
+		   (SvSCREAM(meth) && strEQ(name,"isa")) ? "DOES" :
 		   name);
     }