Searched refs:PL_defoutgv (Results 1 – 10 of 10) sorted by relevance
1187 if (GvIOp(PL_defoutgv)) in Perl_magic_get()1188 s = IoTOP_NAME(GvIOp(PL_defoutgv)); in Perl_magic_get()1192 sv_setpv(sv,GvENAME(PL_defoutgv)); in Perl_magic_get()1197 if (GvIOp(PL_defoutgv)) in Perl_magic_get()1198 s = IoFMT_NAME(GvIOp(PL_defoutgv)); in Perl_magic_get()1200 s = GvENAME(PL_defoutgv); in Perl_magic_get()1204 if (GvIO(PL_defoutgv)) in Perl_magic_get()1205 sv_setiv(sv, (IV)IoPAGE_LEN(GvIOp(PL_defoutgv))); in Perl_magic_get()1208 if (GvIO(PL_defoutgv)) in Perl_magic_get()1209 sv_setiv(sv, (IV)IoLINES_LEFT(GvIOp(PL_defoutgv))); in Perl_magic_get()[all …]
872 MAXARG == 0 || (!TOPs && !POPs) ? PL_defoutgv : MUTABLE_GV(POPs);1551 GV *oldgv = PL_defoutgv; in Perl_setdefout()1556 PL_defoutgv = gv; in Perl_setdefout()1565 GV * egv = GvEGVx(PL_defoutgv);1569 egv = PL_defoutgv;1575 gv_efullname4(TARG, PL_defoutgv, NULL, TRUE);1670 gv = PL_defoutgv; in PP()1682 gv = PL_defoutgv; in PP()1842 = (PL_op->op_flags & OPf_STACKED) ? MUTABLE_GV(*++MARK) : PL_defoutgv; in PP()
89 # define PL_defoutgv (vTHX->Idefoutgv) macro
1409 assert(PL_defoutgv); in Perl_nextargv()1411 SvREFCNT_inc_simple_NN(PL_defoutgv)); in Perl_nextargv()
2622 PL_defoutgv && (io = GvIO(PL_defoutgv)) && in S_parse_body()
510 if (!GvGP(sv) || sv == (SV*)PL_stderrgv || sv == (SV*)PL_defoutgv) in do_clean_named_io_objs()527 || (PL_defoutgv && GvGP(PL_defoutgv) && (SV*)GvIO(PL_defoutgv) == sv)) in do_curse()554 olddef = PL_defoutgv; in Perl_sv_clean_objs()555 PL_defoutgv = NULL; /* disable skip of PL_defoutgv */ in Perl_sv_clean_objs()16316 PL_defoutgv = gv_dup_inc(proto_perl->Idefoutgv, param);
3730 cx->blk_format.dfoutgv = PL_defoutgv; in Perl_cx_pushformat()
2095 = (PL_op->op_flags & OPf_STACKED) ? MUTABLE_GV(*++MARK) : PL_defoutgv; in PP()
6585 t/io/defout.t See if PL_defoutgv works
419 PL_defoutgv # Z added by devel/scanprov