diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-01-18 09:09:56 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-01-18 09:09:56 +0000 |
commit | eb36cb72ef10b6174e7dbe1080bd1872ad79cd34 (patch) | |
tree | 4aa85db0227ddbdcb60d6ebaf11ff9d3c2ea7520 /perl.c | |
parent | 3d826b294b9e4cbc002b8f9eeaf0e88c52d9ee96 (diff) | |
download | perl-eb36cb72ef10b6174e7dbe1080bd1872ad79cd34.tar.gz |
Remove commented out code from S_validate_suid()
p4raw-id: //depot/perl@32994
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 7 |
1 files changed, 0 insertions, 7 deletions
@@ -4132,13 +4132,6 @@ FIX YOUR KERNEL, OR PUT A C WRAPPER AROUND THIS SCRIPT!\n"); /* PSz 11 Nov 03 * Keep original arguments: suidperl already has fd script. */ -/* for (which = 1; PL_origargv[which] && PL_origargv[which] != scriptname; which++) ; */ -/* if (!PL_origargv[which]) { */ -/* errno = EPERM; */ -/* Perl_croak(aTHX_ "Permission denied\n"); */ -/* } */ -/* PL_origargv[which] = savepv(Perl_form(aTHX_ "/dev/fd/%d/%s", */ -/* PerlIO_fileno(rsfp), PL_origargv[which])); */ # if defined(HAS_FCNTL) && defined(F_SETFD) fcntl(PerlIO_fileno(rsfp),F_SETFD,0); /* ensure no close-on-exec */ # endif |