Index: perl/perl/config.h
===================================================================
RCS file: /home/ncvs/src/gnu/usr.bin/perl/perl/config.h,v
retrieving revision 1.7
diff -c -r1.7 config.h
*** config.h	1995/04/27 19:56:37	1.7
--- config.h	1996/06/02 00:36:20
***************
*** 351,364 ****
  /* HAS_SETEGID
   *	This symbol, if defined, indicates that the setegid routine is available
   *	to change the effective gid of the current program.
   */
! #define	HAS_SETEGID		/**/
  
  /* HAS_SETEUID
   *	This symbol, if defined, indicates that the seteuid routine is available
   *	to change the effective uid of the current program.
   */
! #define	HAS_SETEUID		/**/
  
  /* HAS_SETPGRP
   *	This symbol, if defined, indicates that the setpgrp() routine is
--- 351,366 ----
  /* HAS_SETEGID
   *	This symbol, if defined, indicates that the setegid routine is available
   *	to change the effective gid of the current program.
+  *	Do not use on systems with _POSIX_SAVED_IDS support.
   */
! /*#undef	HAS_SETEGID		/**/
  
  /* HAS_SETEUID
   *	This symbol, if defined, indicates that the seteuid routine is available
   *	to change the effective uid of the current program.
+  *	Do not use on systems with _POSIX_SAVED_IDS support.
   */
! /*#undef	HAS_SETEUID		/**/
  
  /* HAS_SETPGRP
   *	This symbol, if defined, indicates that the setpgrp() routine is
Index: perl/perl/perl.c
===================================================================
RCS file: /home/ncvs/src/gnu/usr.bin/perl/perl/perl.c,v
retrieving revision 1.4
diff -c -r1.4 perl.c
*** perl.c	1995/05/30 05:03:10	1.4
--- perl.c	1996/06/02 15:58:42
***************
*** 591,597 ****
  	    (void)setegid(statbuf.st_gid);
  #else
  #ifdef HAS_SETREGID
! 	    (void)setregid((GIDTYPE)-1,statbuf.st_gid);
  #else
  	    setgid(statbuf.st_gid);
  #endif
--- 591,597 ----
  	    (void)setegid(statbuf.st_gid);
  #else
  #ifdef HAS_SETREGID
! 	    (void)setregid((GIDTYPE)gid,statbuf.st_gid);
  #else
  	    setgid(statbuf.st_gid);
  #endif
***************
*** 605,611 ****
  		(void)seteuid(statbuf.st_uid);	/* all that for this */
  #else
  #ifdef HAS_SETREUID
! 		(void)setreuid((UIDTYPE)-1,statbuf.st_uid);
  #else
  		setuid(statbuf.st_uid);
  #endif
--- 605,611 ----
  		(void)seteuid(statbuf.st_uid);	/* all that for this */
  #else
  #ifdef HAS_SETREUID
! 		(void)setreuid((UIDTYPE)uid,statbuf.st_uid);
  #else
  		setuid(statbuf.st_uid);
  #endif
***************
*** 618,624 ****
  	    (void)seteuid((UIDTYPE)uid);
  #else
  #ifdef HAS_SETREUID
! 	    (void)setreuid((UIDTYPE)-1,(UIDTYPE)uid);
  #else
  	    setuid((UIDTYPE)uid);
  #endif
--- 618,624 ----
  	    (void)seteuid((UIDTYPE)uid);
  #else
  #ifdef HAS_SETREUID
! 	    (void)setreuid((UIDTYPE)uid,(UIDTYPE)uid);
  #else
  	    setuid((UIDTYPE)uid);
  #endif
Index: perl/sperl/Makefile
===================================================================
RCS file: /home/ncvs/src/gnu/usr.bin/perl/sperl/Makefile,v
retrieving revision 1.9
diff -c -r1.9 Makefile
*** Makefile	1995/05/30 05:03:31	1.9
--- Makefile	1996/06/02 01:01:56
***************
*** 24,30 ****
  MLINKS+= perl.1 suidperl.1
  
  BINOWN= root
! BINMODE=4711
  
  .include "../../Makefile.inc"
  .include <bsd.prog.mk>
--- 24,30 ----
  MLINKS+= perl.1 suidperl.1
  
  BINOWN= root
! BINMODE=4111
  
  .include "../../Makefile.inc"
  .include <bsd.prog.mk>