*** perl.c	Sun Jun  2 09:57:36 1996
--- perl.c	Sun Jun  2 16:10:24 1996
***************
*** 591,596 ****
--- 591,597 ----
  	    (void)setegid(statbuf.st_gid);
  #else
  #ifdef HAS_SETREGID
+ 	    (void)setgid((GIDTYPE)0);
  	    (void)setregid((GIDTYPE)gid,statbuf.st_gid);
  #else
  	    setgid(statbuf.st_gid);
***************
*** 605,610 ****
--- 606,612 ----
  		(void)seteuid(statbuf.st_uid);	/* all that for this */
  #else
  #ifdef HAS_SETREUID
+ 		(void)setuid((UIDTYPE)0);
  		(void)setreuid((UIDTYPE)uid,statbuf.st_uid);
  #else
  		setuid(statbuf.st_uid);
***************
*** 618,623 ****
--- 620,626 ----
  	    (void)seteuid((UIDTYPE)uid);
  #else
  #ifdef HAS_SETREUID
+ 	    (void)setuid((UIDTYPE)0);	
  	    (void)setreuid((UIDTYPE)uid,(UIDTYPE)uid);
  #else
  	    setuid((UIDTYPE)uid);