/dports/lang/perl5.34/perl-5.34.0/ |
H A D | pp_hot.c | 1243 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 D | mg.c | 1045 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 D | pp_sys.c | 385 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 D | embedvar.h | 186 #define PL_last_in_gv (vTHX->Ilast_in_gv) macro
|
H A D | util.c | 1750 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 D | pp_hot.c | 1245 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 D | mg.c | 1051 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 D | pp_sys.c | 385 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 D | util.c | 1454 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 D | embedvar.h | 169 #define PL_last_in_gv (vTHX->Ilast_in_gv) macro
|
/dports/lang/perl5.32/perl-5.32.1/ |
H A D | pp_hot.c | 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() 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 D | mg.c | 1048 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 D | pp_sys.c | 385 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 D | util.c | 1474 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 D | embedvar.h | 187 #define PL_last_in_gv (vTHX->Ilast_in_gv) macro
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/ |
H A D | pp_hot.c | 1243 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 D | mg.c | 1045 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 D | pp_sys.c | 381 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 D | embedvar.h | 164 #define PL_last_in_gv (vTHX->Ilast_in_gv) macro
|
H A D | util.c | 1750 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 D | Carp.t | 464 <FH>; # set PL_last_in_gv
|
/dports/lang/perl5.30/perl-5.30.3/dist/Carp/t/ |
H A D | Carp.t | 462 <FH>; # set PL_last_in_gv
|
/dports/lang/perl5.32/perl-5.32.1/dist/Carp/t/ |
H A D | Carp.t | 462 <FH>; # set PL_last_in_gv
|
/dports/devel/p5-Carp/Carp-1.50/t/ |
H A D | Carp.t | 462 <FH>; # set PL_last_in_gv
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/dist/Carp/t/ |
H A D | Carp.t | 464 <FH>; # set PL_last_in_gv
|