From: Gurusamy Sarathy 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);