Lines Matching defs:gv
352 * The second arg is a gv which is just an empty
374 GV *gv;
377 gv = NULL;
380 gv = (GV*)*PL_stack_sp;
384 assert(!rpp_is_lone((SV*)gv));
431 /* skip the following gv(CORE::GLOBAL::glob), entersub ops */
449 * and following OPs should be: gv(CORE::GLOBAL::glob), entersub
512 PL_last_in_gv = gv;
617 GV * const gv = gv_fetchmethod(stash, "PROPAGATE");
618 if (gv) {
627 call_sv(MUTABLE_SV(GvCV(gv)),
824 GV * const gv = MUTABLE_GV(*++MARK);
826 if (!isGV(gv) && !(SvTYPE(gv) == SVt_PVLV && isGV_with_GP(gv)))
829 if ((io = GvIOp(gv))) {
831 IoFLAGS(GvIOp(gv)) &= ~IOf_UNTAINT;
835 HEKfARG(GvENAME_HEK(gv)));
851 sv = GvSVn(gv);
855 ok = do_open6(gv, tmps, len, NULL, MARK+1, (SP-MARK));
871 GV * const gv =
877 if (gv) {
878 IO * const io = GvIO(gv);
886 PUSHs(boolSV(do_close(gv, TRUE)));
942 GV *gv;
949 gv = MUTABLE_GV(POPs);
950 io = GvIO(gv);
978 report_evil_fh(gv);
1020 GV *gv;
1031 gv = MUTABLE_GV(POPs);
1032 io = GvIO(gv);
1048 report_evil_fh(gv);
1082 GV *gv = NULL;
1178 else if (!(gv = gv_fetchmethod(stash, methname))) {
1194 call_sv(MUTABLE_SV(GvCV(gv)), G_SCALAR);
1236 GV * const gv = gv_fetchmethod_autoload(SvSTASH(obj), "UNTIE", FALSE);
1238 if (gv && isGV(gv) && (cv = GvCV(gv))) {
1240 PUSHs(SvTIED_obj(MUTABLE_SV(gv), mg));
1299 GV *gv = NULL;
1304 if (!stash || !(gv = gv_fetchmethod(stash, "TIEHASH"))) {
1308 if (!stash || !(gv = gv_fetchmethod(stash, "TIEHASH")))
1327 call_sv(MUTABLE_SV(GvCV(gv)), G_SCALAR);
1338 call_sv(MUTABLE_SV(GvCV(gv)), G_SCALAR);
1549 Perl_setdefout(pTHX_ GV *gv)
1555 SvREFCNT_inc_simple_void_NN(gv);
1556 PL_defoutgv = gv;
1596 GV * const gv =
1598 IO *const io = GvIO(gv);
1615 if (!gv || do_eof(gv)) { /* make sure we have fp with something */
1617 report_evil_fh(gv);
1623 *SvPVX(TARG) = PerlIO_getc(IoIFP(GvIOp(gv))); /* should never be EOF */
1624 if (PerlIO_isutf8(IoIFP(GvIOp(gv)))) {
1629 len = PerlIO_read(IoIFP(GvIOp(gv)),SvPVX(TARG)+1,len-1);
1640 S_doform(pTHX_ CV *cv, GV *gv, OP *retop)
1651 cx_pushformat(cx, cv, retop, gv);
1656 setdefout(gv); /* locally select filehandle so $% et al work */
1663 GV *gv;
1670 gv = PL_defoutgv;
1673 gv = MUTABLE_GV(*PL_stack_sp);
1674 /* NB: in principle, decrementing gv's ref count could free it,
1675 * and we aught to make the gv field of the struct block_format
1681 if (!gv)
1682 gv = PL_defoutgv;
1684 io = GvIO(gv);
1693 fgv = gv;
1704 return doform(cv,gv,PL_op->op_next);
1710 GV * const gv = CX_CUR()->blk_format.gv;
1711 IO * const io = GvIOp(gv);
1735 IoFMT_NAME(io) = savepv(GvNAME(gv));
1737 HEKfARG(GvNAME_HEK(gv))));
1787 return doform(cv, gv, PL_op);
1810 report_wrongway_fh(gv, '<');
1812 report_evil_fh(gv);
1841 GV * const gv
1843 IO *const io = GvIO(gv);
1869 report_evil_fh(gv);
1875 report_wrongway_fh(gv, '<');
1877 report_evil_fh(gv);
1906 GV * const gv = MUTABLE_GV(POPs);
1911 if (do_open_raw(gv, tmps, len, mode, perm, NULL)) {
1912 IoLINES(GvIOp(gv)) = 0;
1943 GV * const gv = MUTABLE_GV(*++MARK);
1947 && gv && (io = GvIO(gv)) )
1957 if (!gv)
1970 io = GvIO(gv);
1972 report_evil_fh(gv);
2125 report_wrongway_fh(gv, '>');
2197 GV *const gv = MUTABLE_GV(*++MARK);
2198 IO *const io = GvIO(gv);
2215 if (!gv)
2224 report_wrongway_fh(gv, '<');
2226 report_evil_fh(gv);
2344 GV *gv;
2360 gv = PL_last_in_gv = MUTABLE_GV(POPs); /* eof(FH) */
2367 gv = PL_last_in_gv = GvEGVx(PL_argvgv); /* eof() - ARGV magic */
2371 gv = PL_last_in_gv; /* eof */
2376 if (!gv)
2379 if ((io = GvIO(gv)) && (mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar))) {
2385 if ((IoFLAGS(io) & IOf_START) && av_count(GvAVn(gv)) == 0) {
2389 do_open6(gv, "-", 1, NULL, NULL, 0);
2390 svp = &GvSV(gv);
2399 else if (!nextargv(gv, FALSE))
2404 PUSHs(boolSV(do_eof(gv)));
2411 GV *gv;
2418 gv = PL_last_in_gv;
2420 io = GvIO(gv);
2427 else if (!gv) {
2435 PUSHn( (NV)do_tell(gv) );
2437 PUSHi( (IV)do_tell(gv) );
2455 GV * const gv = PL_last_in_gv = MUTABLE_GV(POPs);
2456 IO *const io = GvIO(gv);
2473 PUSHs(boolSV(do_seek(gv, offset, whence)));
2475 const Off_t sought = do_sysseek(gv, offset, whence);
2608 GV * const gv = MUTABLE_GV(POPs);
2609 IO * const io = GvIOn(gv);
2614 report_evil_fh(gv);
2681 GV * const gv = MUTABLE_GV(POPs);
2682 IO *const io = GvIO(gv);
2691 report_evil_fh(gv);
2712 GV * const gv = MUTABLE_GV(POPs);
2713 IO * const io = GvIOn(gv);
2717 do_close(gv, FALSE);
2792 GV * const gv = MUTABLE_GV(POPs);
2793 IO * const io = GvIOn(gv);
2816 report_evil_fh(gv);
2825 GV * const gv = MUTABLE_GV(POPs);
2826 IO * const io = GvIOn(gv);
2837 report_evil_fh(gv);
2907 GV * const gv = MUTABLE_GV(POPs);
2908 IO * const io = GvIOn(gv);
2917 report_evil_fh(gv);
2935 GV * const gv = MUTABLE_GV(POPs);
2936 IO * const io = GvIOn(gv);
2988 report_evil_fh(gv);
3002 GV * const gv = MUTABLE_GV(POPs);
3003 IO * const io = GvIOn(gv);
3056 report_evil_fh(gv);
3071 GV *gv = NULL;
3077 if (PL_op->op_flags & OPf_REF ? (gv = cGVOP_gv, 1)
3078 : cBOOL((sv=POPs, gv = MAYBE_DEREF_GV(sv))))
3081 if (gv != PL_defgv) {
3085 gv ? " " : "",
3086 SVfARG(gv
3087 ? newSVhek_mortal(GvENAME_HEK(gv))
3094 if (gv == PL_defgv) {
3100 PL_statgv = gv ? gv : (GV *)io;
3102 if(gv) {
3103 io = GvIO(gv);
3109 report_evil_fh(gv);
3119 report_evil_fh(gv);
3124 report_evil_fh(gv);
3670 GV *gv;
3678 gv = cGVOP_gv;
3681 if (!(gv = MAYBE_DEREF_GV_nomg(tmpsv))) {
3683 gv = gv_fetchpvn_flags(name, namelen, SvUTF8(tmpsv), SVt_PVIO);
3687 if (GvIO(gv) && IoIFP(GvIOp(gv)))
3688 fd = PerlIO_fileno(IoIFP(GvIOp(gv)));
3714 GV *gv;
3721 gv = cGVOP_gv;
3724 gv = PL_defgv;
3727 gv = MAYBE_DEREF_GV_nomg(sv);
3730 if (gv) {
3731 if (gv == PL_defgv) {
3741 PL_statgv = gv;
3781 report_evil_fh(gv);
3804 if (!gv) {
3909 GV *gv = NULL;
3914 gv = gv_fetchsv(sv, 0, SVt_PVIO);
3915 if (!gv) {
3926 else if (!(gv = MAYBE_DEREF_GV(sv)))
3952 if (gv) {
3954 IO* const io = GvIO(gv);
3987 report_evil_fh(gv);
4283 GV * const gv = MUTABLE_GV(POPs);
4284 IO * const io = GvIOn(gv);
4288 HEKfARG(GvENAME_HEK(gv)));
4316 GV * const gv = MUTABLE_GV(POPs);
4318 IO * const io = GvIOn(gv);
4323 HEKfARG(GvENAME_HEK(gv)));
4367 GV * const gv = MUTABLE_GV(POPs);
4368 IO * const io = GvIOn(gv);
4373 HEKfARG(GvENAME_HEK(gv)));
4393 GV * const gv = MUTABLE_GV(POPs);
4394 IO * const io = GvIOn(gv);
4399 HEKfARG(GvENAME_HEK(gv)));
4418 GV * const gv = MUTABLE_GV(POPs);
4419 IO * const io = GvIOn(gv);
4424 HEKfARG(GvENAME_HEK(gv)));
4442 GV * const gv = MUTABLE_GV(POPs);
4443 IO * const io = GvIOn(gv);
4448 HEKfARG(GvENAME_HEK(gv)));