# Note: the "+" signs before the constants suppress bareword quoting.
sub wants_bug_mail {
my $self = shift;
- my ($bug_id, $relationship, $fieldDiffs, $commentField, $changer, $bug_is_new) = @_;
+ my ($bug_id, $relationship, $fieldDiffs, $commentField, $dependencyText,
+ $changer, $bug_is_new) = @_;
# Make a list of the events which have happened during this bug change,
# from the point of view of this user.
$events{+EVT_COMMENT} = 1;
}
+ # Dependent changed bugmails must have an event to ensure the bugmail is
+ # emailed.
+ if ($dependencyText ne '') {
+ $events{+EVT_DEPEND_BLOCK} = 1;
+ }
+
my @event_list = keys %events;
my $wants_mail = $self->wants_mail(\@event_list, $relationship);