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