Searched refs:PL_last_in_gv (Results 1 – 13 of 13) sorted by relevance
1642 PL_last_in_gv = MUTABLE_GV(*PL_stack_sp); in PP()1646 if (SvREFCNT(PL_last_in_gv) < 2) in PP()1647 sv_2mortal((SV*)PL_last_in_gv); in PP()1652 PL_last_in_gv = PL_argvgv; in PP()1658 if (!isGV_with_GP(PL_last_in_gv)) { in PP()1659 if (SvROK(PL_last_in_gv) && isGV_with_GP(SvRV(PL_last_in_gv))) in PP()1660 PL_last_in_gv = MUTABLE_GV(SvRV(PL_last_in_gv)); in PP()1662 rpp_xpush_1(MUTABLE_SV(PL_last_in_gv)); in PP()1664 PL_last_in_gv = MUTABLE_GV(*PL_stack_sp); in PP()1666 assert( (SV*)PL_last_in_gv == &PL_sv_undef in PP()[all …]
1058 if (PL_last_in_gv && (SV*)PL_last_in_gv != &PL_sv_undef) { in Perl_magic_get()1059 assert(isGV_with_GP(PL_last_in_gv)); in Perl_magic_get()1060 sv_setrv_inc(sv, MUTABLE_SV(PL_last_in_gv)); in Perl_magic_get()1172 if (GvIO(PL_last_in_gv)) { in Perl_magic_get()1173 sv_setiv(sv, (IV)IoLINES(GvIOp(PL_last_in_gv))); in Perl_magic_get()3206 SAVESPTR(PL_last_in_gv); in Perl_magic_set()3208 else if (SvOK(sv) && GvIO(PL_last_in_gv)) in Perl_magic_set()3209 IoLINES(GvIOp(PL_last_in_gv)) = SvIV(sv); in Perl_magic_set()
511 SAVESPTR(PL_last_in_gv); /* We don't want this to be permanent. */ in PP()512 PL_last_in_gv = gv; in PP()534 PL_last_in_gv = cGVOP_gv; in PP()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 */2415 PL_last_in_gv = MUTABLE_GV(POPs);2418 gv = PL_last_in_gv;2455 GV * const gv = PL_last_in_gv = MUTABLE_GV(POPs);
154 # define PL_last_in_gv (vTHX->Ilast_in_gv) macro
1640 if (GvIO(PL_last_in_gv) && (SvTYPE(GvIOp(PL_last_in_gv)) == SVt_PVIO) in Perl_mess_sv()1641 && IoLINES(GvIOp(PL_last_in_gv))) in Perl_mess_sv()1647 SVfARG(PL_last_in_gv == PL_argvgv in Perl_mess_sv()1649 : newSVhek_mortal(GvNAME_HEK(PL_last_in_gv))), in Perl_mess_sv()1651 (IV)IoLINES(GvIOp(PL_last_in_gv))); in Perl_mess_sv()
1337 if (GvIO(PL_last_in_gv)) {1338 flip = SvIV(sv) == (IV)IoLINES(GvIOp(PL_last_in_gv));1456 if (GvIO(PL_last_in_gv)) {1457 flop = SvIV(sv) == (IV)IoLINES(GvIOp(PL_last_in_gv));
6928 if ((const GV *)sv == PL_last_in_gv)6929 PL_last_in_gv = NULL;10937 if ((const GV *)sv == PL_last_in_gv)10938 PL_last_in_gv = NULL;16315 PL_last_in_gv = gv_dup(proto_perl->Ilast_in_gv, param);
3485 (void)do_open6(PL_last_in_gv, SvPVX_const(tmpcmd), SvCUR(tmpcmd),
1074 PL_last_in_gv = NULL; in perl_destruct()
4351 if (gv == PL_statgv || gv == PL_last_in_gv || gv == PL_stderrgv) in Perl_gv_try_downgrade()
464 <FH>; # set PL_last_in_gv
453 PL_last_in_gv # Z added by devel/scanprov
711 mnd|GV*|PL_last_in_gv