| … | … | ||
|---|---|---|---|
| 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 |