| … | … | ||
|---|---|---|---|
| 17 | $rv | 17 | $rv |
| 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, $ob, $who, $msg) = @_; |
| 23 | my ($event, $ob, $who, $msg, $options) = @$event{qw(event who activator message options)}; | ||
| 24 | 23 | ||
| 25 | local $_ = $msg; | 24 | local $_ = $msg; |
| 26 | 25 | ||
| 27 | eval_event $event, '$ob, $who, $msg, $options', $ob, $who, $msg, $options | 26 | eval_event $event, '$ob, $who, $msg', $ob, $who, $msg |
| 28 | } | 27 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |