sort list for $) so comparison works
authorJoey Hess <joey@kodama.kitenet.net>
Wed, 4 Jun 2008 01:38:57 +0000 (21:38 -0400)
committerJoey Hess <joey@kodama.kitenet.net>
Wed, 4 Jun 2008 01:38:57 +0000 (21:38 -0400)
ikiwiki-mass-rebuild

index b40eb0b3b435b95da7d6675904da3e2804684431..3d0ca734c4652368c9486e5479ce92279efdb610 100755 (executable)
@@ -33,9 +33,9 @@ sub processline {
        defined(my $pid = fork) or die "Can’t fork: $!";
        if (! $pid) {
                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) {
-                       die "failed to set egid $grouplist: $!";
+                       die "failed to set egid $grouplist (got back $))";
                }
                $(=$ugid;
                $<=$uuid;