From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 26 Feb 2000 18:18:16 +0000 (+0000)
Subject: allow $fh->autoflush on globrefs, and thence autovivified filehandles
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f0d430785f65109b00384bce73f531f45cb6187b;p=p5sagit%2Fp5-mst-13.2.git

allow $fh->autoflush on globrefs, and thence autovivified filehandles
(from Tom Christiansen)

p4raw-id: //depot/perl@5276
---

diff --git a/pp_hot.c b/pp_hot.c
index 6027766..b1bbbc7 100644
--- 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);