*** perl.c	Sun Jun  2 09:25:21 1996
--- perl.c	Sun Jun  2 16:20:05 1996
***************
*** 1606,1611 ****
--- 1606,1612 ----
  	    (void)setegid(statbuf.st_gid);
  #else
  #ifdef HAS_SETREGID
+ 	   (void)setgid((Gid_t)0);
             (void)setregid((Gid_t)gid,statbuf.st_gid);
  #else
  #ifdef HAS_SETRESGID
***************
*** 1624,1629 ****
--- 1625,1631 ----
  		(void)seteuid(statbuf.st_uid);	/* all that for this */
  #else
  #ifdef HAS_SETREUID
+ 		(void)setuid((Uid_t)0);
                  (void)setreuid((Uid_t)uid,statbuf.st_uid);
  #else
  #ifdef HAS_SETRESUID
***************
*** 1641,1646 ****
--- 1643,1649 ----
            (void)seteuid((Uid_t)uid);
  #else
  #ifdef HAS_SETREUID
+ 	  (void)setuid((Uid_t)0);
            (void)setreuid((Uid_t)uid,(Uid_t)uid);
  #else
  #ifdef HAS_SETRESUID