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)
This commit is contained in:
joerg 1995-01-09 17:52:25 +00:00
parent 1707d41102
commit 4573dfe5e5

View File

@ -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