Lines Matching refs:PL_rsfp
651 if(PL_rsfp) {
652 (void)PerlIO_close(PL_rsfp);
653 PL_rsfp = Nullfp;
3106 PL_rsfp = PerlIO_fdopen(PL_fdscript,PERL_SCRIPT_MODE);
3108 if (PL_rsfp)
3110 fcntl(PerlIO_fileno(PL_rsfp),F_SETFD,1);
3191 PL_rsfp = PerlProc_popen(SvPVX(cmd), "r");
3197 PL_rsfp = PerlIO_stdin();
3200 PL_rsfp = PerlIO_open(scriptname,PERL_SCRIPT_MODE);
3202 if (PL_rsfp)
3204 fcntl(PerlIO_fileno(PL_rsfp),F_SETFD,1);
3208 if (!PL_rsfp) {
3387 if (PerlLIO_fstat(PerlIO_fileno(PL_rsfp),&PL_statbuf) < 0) /* normal stat is insecure */
3475 if (fd_on_nosuid_fs(PerlIO_fileno(PL_rsfp))) {
3489 if (sv_gets(PL_linestr, PL_rsfp, 0) == Nullch ||
3570 PerlIO_rewind(PL_rsfp);
3571 PerlLIO_lseek(PerlIO_fileno(PL_rsfp),(Off_t)0,0); /* just in case rewind didn't */
3588 PerlIO_fileno(PL_rsfp), PL_origargv[which]));
3590 fcntl(PerlIO_fileno(PL_rsfp),F_SETFD,0); /* ensure no close-on-exec */
3707 PerlIO_rewind(PL_rsfp);
3708 PerlLIO_lseek(PerlIO_fileno(PL_rsfp),(Off_t)0,0); /* just in case rewind didn't */
3718 /* PerlIO_fileno(PL_rsfp), PL_origargv[which])); */
3720 fcntl(PerlIO_fileno(PL_rsfp),F_SETFD,0); /* ensure no close-on-exec */
3732 PerlLIO_fstat(PerlIO_fileno(PL_rsfp),&PL_statbuf); /* may be either wrapped or real suid */
3761 if ((s = sv_gets(PL_linestr, PL_rsfp, 0)) == Nullch) {
3772 PerlIO_rewind(PL_rsfp);
3778 if ((s = sv_gets(PL_linestr, PL_rsfp, 0)) == Nullch)
3783 PerlIO_ungetc(PL_rsfp, '\n'); /* to keep line count right */
3801 PerlIO_ungetc(PL_rsfp, '\n');
4004 tmpfp = PL_rsfp;
4005 PL_rsfp = Nullfp;
4007 PL_rsfp = tmpfp;