Fix missing renames in #1191

This commit is contained in:
Alexey Sokolov
2017-01-08 10:06:21 +00:00
parent ded8a00358
commit 1bb0199ec4
2 changed files with 4 additions and 4 deletions
+2 -2
View File
@@ -541,14 +541,14 @@ sub OnChanActionMessage {
$msg->SetText($text);
return $ret;
}
sub OnPrivMessage {
sub OnPrivTextMessage {
my ($self, $msg) = @_;
my $text = $msg->GetText;
my ($ret) = $self->OnPrivMsg($msg->GetNick, $text);
$msg->SetText($text);
return $ret;
}
sub OnChanMessage {
sub OnChanTextMessage {
my ($self, $msg) = @_;
my $text = $msg->GetText;
my ($ret) = $self->OnChanMsg($msg->GetNick, $msg->GetChan, $text);