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