Lines Matching defs:PL_rsfp
79 #define PL_rsfp (PL_parser->rsfp)
1897 if (!PL_rsfp && !PL_parser->filtered && PL_lex_state == LEX_NORMAL
1949 if (!PL_rsfp && !PL_parser->filtered) {
4987 if ((len = PerlIO_read(PL_rsfp, SvPVX(buf_sv) + old_len,
4989 if (PerlIO_error(PL_rsfp))
4998 if (sv_gets(buf_sv, PL_rsfp, SvCUR(buf_sv)) == NULL) {
4999 if (PerlIO_error(PL_rsfp))
5098 return (sv_gets(sv, PL_rsfp, append));
7009 IoIFP(GvIOp(gv)) = PL_rsfp;
7013 if ((PerlIO*)PL_rsfp == PerlIO_stdin())
7027 loc = PerlIO_tell(PL_rsfp);
7028 (void)PerlIO_seek(PL_rsfp, 0L, 0);
7030 if (PerlLIO_setmode(PerlIO_fileno(PL_rsfp), O_TEXT) != -1) {
7032 PerlIO_seek(PL_rsfp, loc, 0);
7040 PerlIO_apply_layers(aTHX_ PL_rsfp, NULL, ":utf8");
7044 PL_rsfp = NULL;
7280 || (PL_in_eval && !PL_rsfp && !PL_parser->filtered))
7285 && !PL_rsfp && !PL_parser->filtered) {
7331 bof = cBOOL(PL_rsfp);
7345 if (bof && PL_rsfp
7351 Off_t offset = (IV)PerlIO_tell(PL_rsfp);
7375 if (PL_rsfp || PL_parser->filtered)
7967 if (PL_rsfp && (!PL_in_eval || PL_tokenbuf[2] == 'D'))
9193 if ((!PL_rsfp || PL_lex_inwhat)
9292 if ((tok = yyl_fake_eof(aTHX_ 0, cBOOL(PL_rsfp), s)) != YYL_RETRY)
9417 if ( (PL_in_eval && !PL_rsfp && !PL_parser->filtered)
11047 const bool infile = PL_rsfp || PL_parser->filtered;
11856 if (*s == '\n' && !PL_rsfp && !PL_parser->filtered)
12746 if ((PL_rsfp || PL_parser->filtered)
13027 if (!yychar || (yychar == PERLY_SEMICOLON && !PL_rsfp))