From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 18 Jan 2008 09:09:56 +0000 (+0000)
Subject: Remove commented out code from S_validate_suid()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eb36cb72ef10b6174e7dbe1080bd1872ad79cd34;p=p5sagit%2Fp5-mst-13.2.git

Remove commented out code from S_validate_suid()

p4raw-id: //depot/perl@32994
---

diff --git a/perl.c b/perl.c
index 84b7d4e..d34f3e8 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