Lines Matching defs:fd
24 * /dev/fd/xxx; perl checks script is as should be and does work. This was
29 * script on /dev/fd/xxx; suidperl checks script and /dev/fd/xxx object are
335 PL_fdpid = newAV(); /* for remembering popen pids by fd */
3068 if (strnEQ(scriptname, "/dev/fd/", 8) && isDIGIT(scriptname[8]) ) {
3080 * Is it a mistake to use a similar /dev/fd/ construct for
3089 Perl_croak(aTHX_ "Wrong syntax (suid) fd script name \"%s\"\n", s);
3092 Perl_croak(aTHX_ "Missing (suid) fd script name\n");
3115 Perl_croak(aTHX_ "sperl needs fd script\n"
3121 * Perl does the open, and hands script to suidperl on a fd;
3123 * perl with that fd as it has always done.
3127 Perl_croak(aTHX_ "suidperl needs (suid) fd script\n");
3224 S_fd_on_nosuid_fs(pTHX_ int fd)
3232 int on_nosuid = 0; /* the fd is on a nosuid fs */
3237 int on_noexec = 0; /* the fd is on a noexec fs */
3255 check_okay = fstatvfs(fd, &stfs) == 0;
3273 check_okay = fstatfs(fd, &stfs) == 0;
3289 if (fstat(fd, &fdst) == 0) {
3321 if (mtab && (fstat(fd, &stb) == 0)) {
3374 * suidperl called with script open and name changed to /dev/fd/N/X;
3441 * suidperl /dev/fd/4//bin/x 4<setuidscript
3444 * Are there any operating systems that pass /dev/fd/xxx for setuid
3549 * steps of execing sperl and then perl with fd scripts, but
3564 * Pass fd script to suidperl.
3565 * Exec suidperl, substituting fd script for scriptname.
3566 * Pass script name as "subdir" of fd, which perl will grok;
3585 Perl_croak(aTHX_ "Can't change argv to have fd script\n");
3587 PL_origargv[which] = savepv(Perl_form(aTHX_ "/dev/fd/%d/%s",
3675 /* exec the real perl, substituting fd script for scriptname. */
3676 /* (We pass script name as "subdir" of fd, which perl will grok.) */
3710 * Keep original arguments: suidperl already has fd script.
3717 /* PL_origargv[which] = savepv(Perl_form(aTHX_ "/dev/fd/%d/%s", */