X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FDigest%2FMD5%2FMD5.xs;h=a743b05a69a7163f3c98b1ffb8668c776ed4c8f0;hb=47a7661deb880b9c5c3ea4517c4908096fdff41f;hp=1075774e14c9f7552cc96a8fb0d71c8fdfcc9532;hpb=b277e9c134a5350339f5e9d5db29e1a848d8379a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Digest/MD5/MD5.xs b/ext/Digest/MD5/MD5.xs
index 1075774..a743b05 100644
--- a/ext/Digest/MD5/MD5.xs
+++ b/ext/Digest/MD5/MD5.xs
@@ -1,5 +1,3 @@
-/* $Id: MD5.xs,v 1.45 2005/11/26 11:06:20 gisle Exp $ */
-
 /* 
  * This library is free software; you can redistribute it and/or
  * modify it under the same terms as Perl itself.
@@ -711,6 +709,11 @@ md5(...)
 		if (len == 11 && memEQ("Digest::MD5", data, 11)) {
 		    msg = "probably called as class method";
 		}
+		else if (SvROK(ST(0))) {
+		    SV* sv = SvRV(ST(0));
+		    if (SvOBJECT(sv) && strEQ(HvNAME(SvSTASH(sv)), "Digest::MD5"))
+		        msg = "probably called as method";
+		}
 	    }
 	    if (msg) {
 	        const char *f = (ix == F_BIN) ? "md5" :