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 Wunsch
1995-01-09 17:52:25 +00:00
parent 0d94caffca
commit 2563fac568
+4 -4
View File
@@ -386,7 +386,7 @@
* available to change the real, effective and saved gid of the current * available to change the real, effective and saved gid of the current
* program. * program.
*/ */
#define HAS_SETREGID /**/ #undef HAS_SETREGID /**/
/* HAS_SETREUID /* HAS_SETREUID
* This symbol, if defined, indicates that the setreuid routine is * 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 * available to change the real, effective and saved uid of the current
* program. * program.
*/ */
#define HAS_SETREUID /**/ #undef HAS_SETREUID /**/
/* HAS_SETRGID /* HAS_SETRGID
* This symbol, if defined, indicates that the setrgid routine is available * This symbol, if defined, indicates that the setrgid routine is available
* to change the real gid of the current program. * to change the real gid of the current program.
*/ */
#define HAS_SETRGID /**/ #undef HAS_SETRGID /**/
/* HAS_SETRUID /* HAS_SETRUID
* This symbol, if defined, indicates that the setruid routine is available * This symbol, if defined, indicates that the setruid routine is available
* to change the real uid of the current program. * to change the real uid of the current program.
*/ */
#define HAS_SETRUID /**/ #undef HAS_SETRUID /**/
/* HAS_SOCKET /* HAS_SOCKET