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) {
4860 if ((len = PerlIO_read(PL_rsfp, SvPVX(buf_sv) + old_len,
4862 if (PerlIO_error(PL_rsfp))
4871 if (sv_gets(buf_sv, PL_rsfp, SvCUR(buf_sv)) == NULL) {
4872 if (PerlIO_error(PL_rsfp))
4946 return (sv_gets(sv, PL_rsfp, append));
6850 IoIFP(GvIOp(gv)) = PL_rsfp;
6854 if ((PerlIO*)PL_rsfp == PerlIO_stdin())
6868 loc = PerlIO_tell(PL_rsfp);
6869 (void)PerlIO_seek(PL_rsfp, 0L, 0);
6871 if (PerlLIO_setmode(PerlIO_fileno(PL_rsfp), O_TEXT) != -1) {
6873 PerlIO_seek(PL_rsfp, loc, 0);
6881 PerlIO_apply_layers(aTHX_ PL_rsfp, NULL, ":utf8");
6885 PL_rsfp = NULL;
7123 || (PL_in_eval && !PL_rsfp && !PL_parser->filtered))
7128 && !PL_rsfp && !PL_parser->filtered) {
7174 bof = cBOOL(PL_rsfp);
7188 if (bof && PL_rsfp
7194 Off_t offset = (IV)PerlIO_tell(PL_rsfp);
7218 if (PL_rsfp || PL_parser->filtered)
7811 if (PL_rsfp && (!PL_in_eval || PL_tokenbuf[2] == 'D'))
9038 if ((!PL_rsfp || PL_lex_inwhat)
9136 if ((tok = yyl_fake_eof(aTHX_ 0, cBOOL(PL_rsfp), s)) != YYL_RETRY)
9261 if ( (PL_in_eval && !PL_rsfp && !PL_parser->filtered)
10891 const bool infile = PL_rsfp || PL_parser->filtered;
11700 if (*s == '\n' && !PL_rsfp && !PL_parser->filtered)
12590 if ((PL_rsfp || PL_parser->filtered)
12875 if (!yychar || (yychar == PERLY_SEMICOLON && !PL_rsfp))