This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate with Sarathy.
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 27 Feb 2000 04:01:53 +0000 (04:01 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 27 Feb 2000 04:01:53 +0000 (04:01 +0000)
p4raw-id: //depot/cfgperl@5279

pp_hot.c

index 6027766..b1bbbc7 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2757,9 +2757,13 @@ S_method_common(pTHX_ SV* meth, U32* hashp)
        *(PL_stack_base + TOPMARK + 1) = sv_2mortal(newRV((SV*)iogv));
     }
 
-    if (!ob || !SvOBJECT(ob))
+    if (!ob || !(SvOBJECT(ob)
+                || (SvTYPE(ob) == SVt_PVGV && (ob = (SV*)GvIO((GV*)ob))
+                    && SvOBJECT(ob))))
+    {
        Perl_croak(aTHX_ "Can't call method \"%s\" on unblessed reference",
                   name);
+    }
 
     stash = SvSTASH(ob);