From 0353882a6608c8cce4a3395f45b47534991d43df Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kodama.kitenet.net>
Date: Sat, 31 May 2008 14:46:16 -0400
Subject: ikiwiki-mass-rebuild: Don't trust $! when setting $)

A better fix, just check that what $) returns is what it was asked to set,
and ignore $! entirely.
---
 ikiwiki-mass-rebuild | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'ikiwiki-mass-rebuild')

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