this problem makes less sense the more information I get
[ikiwiki] / ikiwiki-mass-rebuild
index 710db4e..3d0ca73 100755 (executable)
@@ -33,10 +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));
-               $)=$grouplist;
-               if ($!) {
-                       die "failed to set egid $grouplist";
+               my $grouplist=join(" ", $ugid, sort {$a <=> $b} $ugid, supplemental_groups($user));
+               if (($)=$grouplist) ne $grouplist) {
+                       die "failed to set egid $grouplist (got back $))";
                }
                $(=$ugid;
                $<=$uuid;