Lines Matching defs:rsfp

66 #  define validate_suid(rsfp) NOOP
68 #  define validate_suid(rsfp) S_validate_suid(aTHX_ rsfp)
991     if(PL_parser && PL_parser->rsfp) {
992         (void)PerlIO_close(PL_parser->rsfp);
993         PL_parser->rsfp = NULL;
2187     PerlIO *rsfp;
2531         rsfp = open_script(scriptname, dosearch, &suidscript);
2532         if (!rsfp) {
2533             rsfp = PerlIO_stdin();
2537         validate_suid(rsfp);
2562             find_beginning(linestr_sv, rsfp);
2661     lex_start(linestr_sv, rsfp, lex_start_flags);
4152     PerlIO *rsfp = NULL;
4207         rsfp = PerlIO_fdopen(fdscript,PERL_SCRIPT_MODE);
4238         rsfp = PerlIO_open(scriptname,PERL_SCRIPT_MODE);
4248     if (!rsfp) {
4256     fd = PerlIO_fileno(rsfp);
4265     return rsfp;
4288 S_validate_suid(pTHX_ PerlIO *rsfp)
4298         int fd = PerlIO_fileno(rsfp);
4316 S_find_beginning(pTHX_ SV* linestr_sv, PerlIO *rsfp)
4326         if ((s = sv_gets(linestr_sv, rsfp, 0)) == NULL)
4330     PerlIO_ungetc(rsfp, '\n');		/* to keep line count right */