From 2563fac568dc292bd372e68f6677c0ca4e09cdec Mon Sep 17 00:00:00 2001 From: Joerg Wunsch Date: Mon, 9 Jan 1995 17:52:25 +0000 Subject: [PATCH] I think someone has already talk about it but I just got bitten again : perl setuid scripts don't work in 2.1-current for the same reason they were not working in 1.1.5.1. Perl 5 has the same "problem" of course. We have almost POSIX saved uids but we must undefine the following symbols in order to get setuid perl scripts : Submitted by: roberto@blaise.ibp.fr (Ollivier Robert) --- gnu/usr.bin/perl/perl/config.h | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gnu/usr.bin/perl/perl/config.h b/gnu/usr.bin/perl/perl/config.h index 6a6d9fa2f07..c834f144391 100644 --- a/gnu/usr.bin/perl/perl/config.h +++ b/gnu/usr.bin/perl/perl/config.h @@ -386,7 +386,7 @@ * available to change the real, effective and saved gid of the current * program. */ -#define HAS_SETREGID /**/ +#undef HAS_SETREGID /**/ /* HAS_SETREUID * This symbol, if defined, indicates that the setreuid routine is @@ -397,19 +397,19 @@ * available to change the real, effective and saved uid of the current * program. */ -#define HAS_SETREUID /**/ +#undef HAS_SETREUID /**/ /* HAS_SETRGID * This symbol, if defined, indicates that the setrgid routine is available * to change the real gid of the current program. */ -#define HAS_SETRGID /**/ +#undef HAS_SETRGID /**/ /* HAS_SETRUID * This symbol, if defined, indicates that the setruid routine is available * to change the real uid of the current program. */ -#define HAS_SETRUID /**/ +#undef HAS_SETRUID /**/ /* HAS_SOCKET