avoid warning

[git.ikiwiki.info.git] / ikiwiki-mass-rebuild

diff --git a/ikiwiki-mass-rebuild b/ikiwiki-mass-rebuild
index 8cc6f45c1d9f6fbd21b40e403bc3d5561bb93d3e..b40eb0b3b435b95da7d6675904da3e2804684431 100755 (executable)
--- a/ikiwiki-mass-rebuild
+++ b/ikiwiki-mass-rebuild
@@ -34,8 +34,7 @@ sub processline {
        if (! $pid) {
                my ($uuid, $ugid) = (getpwnam($user))[2, 3];
                my $grouplist=join(" ", $ugid, $ugid, supplemental_groups($user));
-               $)=$grouplist;
-               if ($!) {
+               if (($)=$grouplist) ne $grouplist) {
                        die "failed to set egid $grouplist: $!";
                }
                $(=$ugid;