sort list for $) so comparison works

master
Joey Hess 2008-06-03 21:38:57 -04:00
parent c688863cf1
commit 20ac7c1bf5
1 changed files with 2 additions and 2 deletions

View File

@ -33,9 +33,9 @@ sub processline {
defined(my $pid = fork) or die "Cant fork: $!"; defined(my $pid = fork) or die "Cant fork: $!";
if (! $pid) { if (! $pid) {
my ($uuid, $ugid) = (getpwnam($user))[2, 3]; my ($uuid, $ugid) = (getpwnam($user))[2, 3];
my $grouplist=join(" ", $ugid, $ugid, supplemental_groups($user)); my $grouplist=join(" ", $ugid, sort {$a <=> $b} $ugid, supplemental_groups($user));
if (($)=$grouplist) ne $grouplist) { if (($)=$grouplist) ne $grouplist) {
die "failed to set egid $grouplist: $!"; die "failed to set egid $grouplist (got back $))";
} }
$(=$ugid; $(=$ugid;
$<=$uuid; $<=$uuid;