===================================================================
RCS file: /usr/local/MASTER/plexus/src/plexus,v
retrieving revision 2.31
diff -c -r2.31 plexus
*** 2.31	1994/11/11 06:19:06
--- plexus	1995/02/22 23:31:22
***************
*** 83,89 ****
  	}
  	&debug("uid: $uid, gid: " . join(",",@groups));
  	$gid = $groups[0];		# first item is main group
! 	$( = $) = $gid;			# set gids here but keep uid
  	&initgroups($gid, @groups);	# init group vector (site.pl)
      }
  
--- 83,92 ----
  	}
  	&debug("uid: $uid, gid: " . join(",",@groups));
  	$gid = $groups[0];		# first item is main group
! 	($(, $)) = ($gid, $gid);	# set gids here but keep uid for now
! 	if ($( != $) || $( != $gid) {
! 	    die "couldn't setgid $gid properly\n";
! 	}
  	&initgroups($gid, @groups);	# init group vector (site.pl)
      }
  
***************
*** 127,133 ****
      if ($running_as_root) {
  	$http_chroot &&
  	    (chroot($plexus_top) || die "chroot: $plexus_top: $!", chdir("/"));
! 	$< = $> = $uid;					# now set user id
      }
  
      #
--- 130,139 ----
      if ($running_as_root) {
  	$http_chroot &&
  	    (chroot($plexus_top) || die "chroot: $plexus_top: $!", chdir("/"));
! 	($<, $>) = ($uid, $uid);			# now set user id
! 	if ($< != $> || $< != $uid) {
! 	    die "couldn't setuid $uid properly\n";
! 	}
      }
  
      #