-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 (file)
--- 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