Home
last modified time | relevance | path

Searched refs:PL_last_in_gv (Results 1 – 25 of 56) sorted by relevance

123

/dports/lang/perl5.34/perl-5.34.0/
H A Dpp_hot.c1243 PL_last_in_gv = MUTABLE_GV(*PL_stack_sp--); in PP()
1245 else PL_last_in_gv = PL_argvgv, PL_stack_sp--; in PP()
1246 if (!isGV_with_GP(PL_last_in_gv)) { in PP()
1247 if (SvROK(PL_last_in_gv) && isGV_with_GP(SvRV(PL_last_in_gv))) in PP()
1248 PL_last_in_gv = MUTABLE_GV(SvRV(PL_last_in_gv)); in PP()
1251 XPUSHs(MUTABLE_SV(PL_last_in_gv)); in PP()
1255 assert((SV*)PL_last_in_gv == &PL_sv_undef || isGV_with_GP(PL_last_in_gv)); in PP()
3161 IO * const io = GvIO(PL_last_in_gv); in Perl_do_readline()
3205 report_wrongway_fh(PL_last_in_gv, '>'); in Perl_do_readline()
3213 report_evil_fh(PL_last_in_gv); in Perl_do_readline()
[all …]
H A Dmg.c1045 if (PL_last_in_gv && (SV*)PL_last_in_gv != &PL_sv_undef) { in Perl_magic_get()
1046 assert(isGV_with_GP(PL_last_in_gv)); in Perl_magic_get()
1050 SvRV_set(sv, SvREFCNT_inc_simple_NN(PL_last_in_gv)); in Perl_magic_get()
1147 if (GvIO(PL_last_in_gv)) { in Perl_magic_get()
1148 sv_setiv(sv, (IV)IoLINES(GvIOp(PL_last_in_gv))); in Perl_magic_get()
3056 SAVESPTR(PL_last_in_gv); in Perl_magic_set()
3058 else if (SvOK(sv) && GvIO(PL_last_in_gv)) in Perl_magic_set()
3059 IoLINES(GvIOp(PL_last_in_gv)) = SvIV(sv); in Perl_magic_set()
H A Dpp_sys.c385 SAVESPTR(PL_last_in_gv); /* We don't want this to be permanent. */ in PP()
386 PL_last_in_gv = gv; in PP()
403 PL_last_in_gv = cGVOP_gv; in PP()
2107 gv = PL_last_in_gv = MUTABLE_GV(POPs); /* eof(FH) */ in PP()
2114 gv = PL_last_in_gv = GvEGVx(PL_argvgv); /* eof() - ARGV magic */ in PP()
2118 gv = PL_last_in_gv; /* eof */ in PP()
2162 PL_last_in_gv = MUTABLE_GV(POPs); in PP()
2165 gv = PL_last_in_gv; in PP()
2202 GV * const gv = PL_last_in_gv = MUTABLE_GV(POPs); in PP()
H A Dembedvar.h186 #define PL_last_in_gv (vTHX->Ilast_in_gv) macro
H A Dutil.c1750 if (GvIO(PL_last_in_gv) && (SvTYPE(GvIOp(PL_last_in_gv)) == SVt_PVIO) in Perl_mess_sv()
1751 && IoLINES(GvIOp(PL_last_in_gv))) in Perl_mess_sv()
1757 SVfARG(PL_last_in_gv == PL_argvgv in Perl_mess_sv()
1759 : sv_2mortal(newSVhek(GvNAME_HEK(PL_last_in_gv)))), in Perl_mess_sv()
1761 (IV)IoLINES(GvIOp(PL_last_in_gv))); in Perl_mess_sv()
/dports/lang/perl5.30/perl-5.30.3/
H A Dpp_hot.c1245 if (!isGV_with_GP(PL_last_in_gv)) { in PP()
1246 if (SvROK(PL_last_in_gv) && isGV_with_GP(SvRV(PL_last_in_gv))) in PP()
1247 PL_last_in_gv = MUTABLE_GV(SvRV(PL_last_in_gv)); in PP()
1250 XPUSHs(MUTABLE_SV(PL_last_in_gv)); in PP()
1254 assert((SV*)PL_last_in_gv == &PL_sv_undef || isGV_with_GP(PL_last_in_gv)); in PP()
3116 IO * const io = GvIO(PL_last_in_gv); in Perl_do_readline()
3143 sv_setpvs(GvSVn(PL_last_in_gv), "-"); in Perl_do_readline()
3144 SvSETMAGIC(GvSV(PL_last_in_gv)); in Perl_do_readline()
3168 report_evil_fh(PL_last_in_gv); in Perl_do_readline()
3238 (void)do_close(PL_last_in_gv, FALSE); in Perl_do_readline()
[all …]
H A Dmg.c1051 if (PL_last_in_gv && (SV*)PL_last_in_gv != &PL_sv_undef) { in Perl_magic_get()
1052 assert(isGV_with_GP(PL_last_in_gv)); in Perl_magic_get()
1056 SvRV_set(sv, SvREFCNT_inc_simple_NN(PL_last_in_gv)); in Perl_magic_get()
1158 if (GvIO(PL_last_in_gv)) { in Perl_magic_get()
1159 sv_setiv(sv, (IV)IoLINES(GvIOp(PL_last_in_gv))); in Perl_magic_get()
2972 SAVESPTR(PL_last_in_gv); in Perl_magic_set()
2974 else if (SvOK(sv) && GvIO(PL_last_in_gv)) in Perl_magic_set()
2975 IoLINES(GvIOp(PL_last_in_gv)) = SvIV(sv); in Perl_magic_set()
H A Dpp_sys.c385 SAVESPTR(PL_last_in_gv); /* We don't want this to be permanent. */ in PP()
386 PL_last_in_gv = gv; in PP()
403 PL_last_in_gv = cGVOP_gv; in PP()
2107 gv = PL_last_in_gv = MUTABLE_GV(POPs); /* eof(FH) */ in PP()
2114 gv = PL_last_in_gv = GvEGVx(PL_argvgv); /* eof() - ARGV magic */ in PP()
2118 gv = PL_last_in_gv; /* eof */ in PP()
2162 PL_last_in_gv = MUTABLE_GV(POPs); in PP()
2165 gv = PL_last_in_gv; in PP()
2202 GV * const gv = PL_last_in_gv = MUTABLE_GV(POPs); in PP()
H A Dutil.c1454 if (GvIO(PL_last_in_gv) && (SvTYPE(GvIOp(PL_last_in_gv)) == SVt_PVIO) in Perl_mess_sv()
1455 && IoLINES(GvIOp(PL_last_in_gv))) in Perl_mess_sv()
1461 SVfARG(PL_last_in_gv == PL_argvgv in Perl_mess_sv()
1463 : sv_2mortal(newSVhek(GvNAME_HEK(PL_last_in_gv)))), in Perl_mess_sv()
1465 (IV)IoLINES(GvIOp(PL_last_in_gv))); in Perl_mess_sv()
H A Dembedvar.h169 #define PL_last_in_gv (vTHX->Ilast_in_gv) macro
/dports/lang/perl5.32/perl-5.32.1/
H A Dpp_hot.c1246 if (!isGV_with_GP(PL_last_in_gv)) { in PP()
1247 if (SvROK(PL_last_in_gv) && isGV_with_GP(SvRV(PL_last_in_gv))) in PP()
1248 PL_last_in_gv = MUTABLE_GV(SvRV(PL_last_in_gv)); in PP()
1251 XPUSHs(MUTABLE_SV(PL_last_in_gv)); in PP()
1255 assert((SV*)PL_last_in_gv == &PL_sv_undef || isGV_with_GP(PL_last_in_gv)); in PP()
3156 IO * const io = GvIO(PL_last_in_gv); in Perl_do_readline()
3183 sv_setpvs(GvSVn(PL_last_in_gv), "-"); in Perl_do_readline()
3184 SvSETMAGIC(GvSV(PL_last_in_gv)); in Perl_do_readline()
3208 report_evil_fh(PL_last_in_gv); in Perl_do_readline()
3278 (void)do_close(PL_last_in_gv, FALSE); in Perl_do_readline()
[all …]
H A Dmg.c1048 if (PL_last_in_gv && (SV*)PL_last_in_gv != &PL_sv_undef) { in Perl_magic_get()
1049 assert(isGV_with_GP(PL_last_in_gv)); in Perl_magic_get()
1053 SvRV_set(sv, SvREFCNT_inc_simple_NN(PL_last_in_gv)); in Perl_magic_get()
1155 if (GvIO(PL_last_in_gv)) { in Perl_magic_get()
1156 sv_setiv(sv, (IV)IoLINES(GvIOp(PL_last_in_gv))); in Perl_magic_get()
3010 SAVESPTR(PL_last_in_gv); in Perl_magic_set()
3012 else if (SvOK(sv) && GvIO(PL_last_in_gv)) in Perl_magic_set()
3013 IoLINES(GvIOp(PL_last_in_gv)) = SvIV(sv); in Perl_magic_set()
H A Dpp_sys.c385 SAVESPTR(PL_last_in_gv); /* We don't want this to be permanent. */ in PP()
386 PL_last_in_gv = gv; in PP()
403 PL_last_in_gv = cGVOP_gv; in PP()
2107 gv = PL_last_in_gv = MUTABLE_GV(POPs); /* eof(FH) */ in PP()
2114 gv = PL_last_in_gv = GvEGVx(PL_argvgv); /* eof() - ARGV magic */ in PP()
2118 gv = PL_last_in_gv; /* eof */ in PP()
2162 PL_last_in_gv = MUTABLE_GV(POPs); in PP()
2165 gv = PL_last_in_gv; in PP()
2202 GV * const gv = PL_last_in_gv = MUTABLE_GV(POPs); in PP()
H A Dutil.c1474 if (GvIO(PL_last_in_gv) && (SvTYPE(GvIOp(PL_last_in_gv)) == SVt_PVIO) in Perl_mess_sv()
1475 && IoLINES(GvIOp(PL_last_in_gv))) in Perl_mess_sv()
1481 SVfARG(PL_last_in_gv == PL_argvgv in Perl_mess_sv()
1483 : sv_2mortal(newSVhek(GvNAME_HEK(PL_last_in_gv)))), in Perl_mess_sv()
1485 (IV)IoLINES(GvIOp(PL_last_in_gv))); in Perl_mess_sv()
H A Dembedvar.h187 #define PL_last_in_gv (vTHX->Ilast_in_gv) macro
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/
H A Dpp_hot.c1243 PL_last_in_gv = MUTABLE_GV(*PL_stack_sp--); in PP()
1245 else PL_last_in_gv = PL_argvgv, PL_stack_sp--; in PP()
1246 if (!isGV_with_GP(PL_last_in_gv)) { in PP()
1247 if (SvROK(PL_last_in_gv) && isGV_with_GP(SvRV(PL_last_in_gv))) in PP()
1248 PL_last_in_gv = MUTABLE_GV(SvRV(PL_last_in_gv)); in PP()
1251 XPUSHs(MUTABLE_SV(PL_last_in_gv)); in PP()
1255 assert((SV*)PL_last_in_gv == &PL_sv_undef || isGV_with_GP(PL_last_in_gv)); in PP()
3175 IO * const io = GvIO(PL_last_in_gv); in Perl_do_readline()
3219 report_wrongway_fh(PL_last_in_gv, '>'); in Perl_do_readline()
3227 report_evil_fh(PL_last_in_gv); in Perl_do_readline()
[all …]
H A Dmg.c1045 if (PL_last_in_gv && (SV*)PL_last_in_gv != &PL_sv_undef) { in Perl_magic_get()
1046 assert(isGV_with_GP(PL_last_in_gv)); in Perl_magic_get()
1047 sv_setrv_inc(sv, MUTABLE_SV(PL_last_in_gv)); in Perl_magic_get()
1143 if (GvIO(PL_last_in_gv)) { in Perl_magic_get()
1144 sv_setiv(sv, (IV)IoLINES(GvIOp(PL_last_in_gv))); in Perl_magic_get()
3079 SAVESPTR(PL_last_in_gv); in Perl_magic_set()
3081 else if (SvOK(sv) && GvIO(PL_last_in_gv)) in Perl_magic_set()
3082 IoLINES(GvIOp(PL_last_in_gv)) = SvIV(sv); in Perl_magic_set()
H A Dpp_sys.c381 SAVESPTR(PL_last_in_gv); /* We don't want this to be permanent. */ in PP()
382 PL_last_in_gv = gv; in PP()
399 PL_last_in_gv = cGVOP_gv; in PP()
2116 gv = PL_last_in_gv = MUTABLE_GV(POPs); /* eof(FH) */ in PP()
2123 gv = PL_last_in_gv = GvEGVx(PL_argvgv); /* eof() - ARGV magic */ in PP()
2127 gv = PL_last_in_gv; /* eof */ in PP()
2171 PL_last_in_gv = MUTABLE_GV(POPs); in PP()
2174 gv = PL_last_in_gv; in PP()
2211 GV * const gv = PL_last_in_gv = MUTABLE_GV(POPs); in PP()
H A Dembedvar.h164 #define PL_last_in_gv (vTHX->Ilast_in_gv) macro
H A Dutil.c1750 if (GvIO(PL_last_in_gv) && (SvTYPE(GvIOp(PL_last_in_gv)) == SVt_PVIO) in Perl_mess_sv()
1751 && IoLINES(GvIOp(PL_last_in_gv))) in Perl_mess_sv()
1757 SVfARG(PL_last_in_gv == PL_argvgv in Perl_mess_sv()
1759 : sv_2mortal(newSVhek(GvNAME_HEK(PL_last_in_gv)))), in Perl_mess_sv()
1761 (IV)IoLINES(GvIOp(PL_last_in_gv))); in Perl_mess_sv()
/dports/lang/perl5.34/perl-5.34.0/dist/Carp/t/
H A DCarp.t464 <FH>; # set PL_last_in_gv
/dports/lang/perl5.30/perl-5.30.3/dist/Carp/t/
H A DCarp.t462 <FH>; # set PL_last_in_gv
/dports/lang/perl5.32/perl-5.32.1/dist/Carp/t/
H A DCarp.t462 <FH>; # set PL_last_in_gv
/dports/devel/p5-Carp/Carp-1.50/t/
H A DCarp.t462 <FH>; # set PL_last_in_gv
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/dist/Carp/t/
H A DCarp.t464 <FH>; # set PL_last_in_gv

123