From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 21 Jan 1999 08:53:14 +0000 (+0000)
Subject: -DNO_NOSUID_CHECK for those platforms which have no way
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2bb3463c228e06f0db40ef7798e304ae7a7502ba;p=p5sagit%2Fp5-mst-13.2.git

-DNO_NOSUID_CHECK for those platforms which have no way
of checking for nosuid but still want suidperl.

p4raw-id: //depot/cfgperl@2653
---

diff --git a/perl.c b/perl.c
index 8a4fedf..25111ad 100644
--- a/perl.c
+++ b/perl.c
@@ -2245,7 +2245,7 @@ validate_suid(char *validarg, char *scriptname, int fdscript)
 		croak("Can't swap uid and euid");	/* really paranoid */
 	    if (PerlLIO_stat(SvPVX(GvSV(PL_curcop->cop_filegv)),&tmpstatbuf) < 0)
 		croak("Permission denied");	/* testing full pathname here */
-#ifdef IAMSUID
+#if defined(IAMSUID) && !defined(NO_NOSUID_CHECK)
 	    if (fd_on_nosuid_fs(PerlIO_fileno(PL_rsfp)))
 		croak("Permission denied");
 #endif