UNIVERSAL::isa() and UNIVERSAL::can() fail for magic values

p4raw-id: //depot/perl@5630

diff --git a/universal.c b/universal.c
index f6b25a4..28e0896 100644 (file)
--- a/universal.c
+++ b/universal.c
@@ -139,6 +139,9 @@ XS(XS_UNIVERSAL_isa)
 
     sv = ST(0);
 
+    if (SvGMAGICAL(sv))
+       mg_get(sv);
+
     if (!SvOK(sv) || !(SvROK(sv) || SvCUR(sv)))
        XSRETURN_UNDEF;
 
@@ -162,6 +165,9 @@ XS(XS_UNIVERSAL_can)
 
     sv = ST(0);
 
+    if (SvGMAGICAL(sv))
+       mg_get(sv);
+
     if (!SvOK(sv) || !(SvROK(sv) || SvCUR(sv)))
        XSRETURN_UNDEF;