summaryrefslogtreecommitdiffstats
path: root/userprefs.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'userprefs.cgi')
-rwxr-xr-xuserprefs.cgi6
1 files changed, 3 insertions, 3 deletions
diff --git a/userprefs.cgi b/userprefs.cgi
index a5590e4eb..df2255ce4 100755
--- a/userprefs.cgi
+++ b/userprefs.cgi
@@ -309,12 +309,12 @@ sub SaveEmail {
# The new information given to us by the user.
my @new_watch_names = split(/[,\s]+/, $cgi->param('watchedusers'));
- my @new_watch_ids = ();
+ my %new_watch_ids;
foreach my $username (@new_watch_names) {
my $watched_userid = DBNameToIdAndCheck(trim($username));
- push(@new_watch_ids, $watched_userid);
+ $new_watch_ids{$watched_userid} = 1;
}
- my ($removed, $added) = diff_arrays($old_watch_ids, \@new_watch_ids);
+ my ($removed, $added) = diff_arrays($old_watch_ids, [keys %new_watch_ids]);
# Remove people who were removed.
my $delete_sth = $dbh->prepare('DELETE FROM watch WHERE watched = ?'