| … | … | ||
|---|---|---|---|
| 9 | my $code = $event->message; | 9 | my $code = $event->message; |
| 10 | my $who = eval { $event->environment->name } || "<unknown>"; | 10 | my $who = eval { $event->environment->name } || "<unknown>"; |
| 11 | 11 | ||
| 12 | my $rv = cf::safe_eval $code, %vars; | 12 | my $rv = cf::safe_eval $code, %vars; |
| 13 | 13 | ||
| 14 | warn $@ if $@; | 14 | cf::error $@ if $@; |
| 15 | 15 | ||
| 16 | $rv | 16 | $rv |
| 17 | } | 17 | } |
| 18 | 18 | ||
| 19 | sub on_say { | 19 | sub on_say { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |