# The last relevant set of people are those who are being removed from
# their roles in this change. We get their names out of the diffs.
foreach my $ref (@$diffs) {
- my ($who, $what, $when, $old, $new) = (@$ref);
+ my ($who, $whoname, $what, $when, $old, $new) = (@$ref);
if ($old) {
# You can't stop being the reporter, and mail isn't sent if you
# remove your vote.
# from the point of view of this user.
my %events;
foreach my $ref (@$fieldDiffs) {
- my ($who, $fieldName, $when, $old, $new) = @$ref;
+ my ($who, $whoname, $fieldName, $when, $old, $new) = @$ref;
# A change to any of the above fields sets the corresponding event
if (defined($names_to_events{$fieldName})) {
$events{$names_to_events{$fieldName}} = 1;