- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Module/IRC.pm
r744769e r0c4a190 399 399 $body =~ tr/\n\r/ /; 400 400 if ($body =~ /^\/me (.*)/) { 401 $conn->conn->me($to, $1);401 $conn->conn->me($to, Encode::encode('utf-8', $1)); 402 402 $body = '* '.$conn->nick.' '.$1; 403 403 } else { 404 $conn->conn->privmsg($to, $body);404 $conn->conn->privmsg($to, Encode::encode('utf-8', $body)); 405 405 } 406 406 my $msg = BarnOwl::Message->new(
Note: See TracChangeset
for help on using the changeset viewer.