Change 32994 by [EMAIL PROTECTED] on 2008/01/18 09:09:56
Remove commented out code from S_validate_suid()
Affected files ...
... //depot/perl/perl.c#849 edit
Differences ...
==== //depot/perl/perl.c#849 (text) ====
Index: perl/perl.c
--- perl/perl.c#848~32960~ 2008-01-11 10:03:18.000000000 -0800
+++ perl/perl.c 2008-01-18 01:09:56.000000000 -0800
@@ -4132,13 +4132,6 @@
/* 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
End of Patch.
