| … | … | ||
|---|---|---|---|
| 18 | } | 18 | } |
| 19 | 19 | ||
| 20 | # currently say only | 20 | # currently say only |
| 21 | sub on_say { | 21 | sub on_say { |
| 22 | my ($event) = @_; | 22 | my ($event) = @_; |
| 23 | my ($event, $who, $msg, $options) = @$event{qw(event who message options)}; | 23 | my ($event, $ob, $who, $msg, $options) = @$event{qw(event who activator message options)}; |
| 24 | 24 | ||
| 25 | local $_ = $msg; | 25 | local $_ = $msg; |
| 26 | 26 | ||
| 27 | eval_event $event, '$who, $msg, $options', $who, $msg, $options | 27 | eval_event $event, '$ob, $who, $msg, $options', $ob, $who, $msg, $options |
| 28 | } | 28 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |