--- a/exim-exigrey.pl	Wed Jan 03 08:55:02 2007 +0000
+++ b/exim-exigrey.pl	Wed Jan 03 09:21:21 2007 +0000
@@ -104,10 +104,12 @@
     # this file
     if (!-f $db) {
 	(my $dir = $db) =~ s/^(.*)\/.*?$/$1/;
+
 	# copy mode, uid, gid from the directory
 	my ($mode, $user, $group) = (stat $dir)[2,4,5] or die "Can't stat $dir: $!";
 	my $umask = umask(($mode & 0777) ^ 0777);
-	local ($>, $)) = ($user, $group);
+	local $) = $group;
+	local $> = $user;
 	open(X, ">>$db") or die "Can't create $db: $!";
 	close(X);
 	umask $umask;