… | … | ||
---|---|---|---|
81 | my ($data) = @_; | 81 | my ($data) = @_; |
82 | 82 | ||
83 | my $cb = $hook[$data->{event_code}] | 83 | my $cb = $hook[$data->{event_code}] |
84 | or return; | 84 | or return; |
85 | 85 | ||
86 | $_->($data) for values %$cb; | 86 | List::Util::max map $_->($data), values %$cb |
87 | |||
88 | () | ||
89 | } | 87 | } |
90 | 88 | ||
91 | sub inject_command { | 89 | sub inject_command { |
92 | my ($name, $obj, $params) = @_; | 90 | my ($name, $obj, $params) = @_; |
93 | 91 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |