| … | … | ||
|---|---|---|---|
| 87 | my ($cmd, $arg); | 87 | my ($cmd, $arg); |
| 88 | 88 | ||
| 89 | if ($text =~ /^\/(\S+)\s*(.*)$/) { | 89 | if ($text =~ /^\/(\S+)\s*(.*)$/) { |
| 90 | ($cmd, $arg) = ($1, $2); | 90 | ($cmd, $arg) = ($1, $2); |
| 91 | } else { | 91 | } else { |
| 92 | ($cmd, $arg) = ("msg", $text); | 92 | ($cmd, $arg) = ("say", $text); |
| 93 | } | 93 | } |
| 94 | 94 | ||
| 95 | $self->signal_emit (command => $cmd, $arg); | 95 | $self->signal_emit (command => $cmd, $arg); |
| 96 | }); | 96 | }); |
| 97 | 97 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |