diff options
Diffstat (limited to 'ext/Digest/MD5/MD5.xs')
| -rw-r--r-- | ext/Digest/MD5/MD5.xs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/ext/Digest/MD5/MD5.xs b/ext/Digest/MD5/MD5.xs index 9f3689d66a..a743b05a69 100644 --- a/ext/Digest/MD5/MD5.xs +++ b/ext/Digest/MD5/MD5.xs @@ -709,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" : |