| … | … | ||
|---|---|---|---|
| 18 | }, | 18 | }, |
| 19 | on_told => sub { | 19 | on_told => sub { |
| 20 | my ($self, $pl, $msg) = @_; | 20 | my ($self, $pl, $msg) = @_; |
| 21 | 21 | ||
| 22 | my $name = $self->ob->name; | 22 | my $name = $self->ob->name; |
| 23 | ext::schmorp_irc::do_notice (sprintf "[%s->$name] %s: %s\n", $pl->ob->name, $msg); | 23 | ext::schmorp_irc::do_notice (sprintf "[%s->$name]: %s\n", $pl->ob->name, $msg); |
| 24 | }, | 24 | }, |
| 25 | ; | 25 | ; |
| 26 | 26 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |