-DNO_NOSUID_CHECK for those platforms which have no way

of checking for nosuid but still want suidperl.

p4raw-id: //depot/cfgperl@2653

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index 8a4fedf608..25111addfd 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