summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2008-01-18 09:09:56 +0000
committerNicholas Clark <nick@ccl4.org>2008-01-18 09:09:56 +0000
commiteb36cb72ef10b6174e7dbe1080bd1872ad79cd34 (patch)
tree4aa85db0227ddbdcb60d6ebaf11ff9d3c2ea7520 /perl.c
parent3d826b294b9e4cbc002b8f9eeaf0e88c52d9ee96 (diff)
downloadperl-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.c7
1 files changed, 0 insertions, 7 deletions
diff --git a/perl.c b/perl.c
index 84b7d4e50c..d34f3e8ad9 100644
--- a/perl.c
+++ b/perl.c
@@ -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