0
@@ -7,7 +7,6 @@ use POE;
0
 
0
 use Twirc::Jabber;
0
 use Twirc::Server;
0
-use Twirc::Ustream;
0
 
0
 has config => (
0
     is  => 'rw',

0
@@ -1,4 +1,5 @@
0
 package Twirc::Jabber;
0
+use utf8;
0
 use Moose;
0
 
0
 use POE;
0
@@ -119,7 +120,7 @@ sub send_message {
0
 }
0
 
0
 sub error_handler {
0
-    my ($kernel, $sender, $heap, $error) = @_[KERNEL, SENDER, HEAP, ARG0];
0
+    my ($kernel, $sender, $error) = @_[KERNEL, SENDER, ARG0];
0
 
0
     if ( $error == +PCJ_SOCKETFAIL or $error == +PCJ_SOCKETDISCONNECT or $error == +PCJ_CONNECTFAIL ) {
0
         print "Reconnecting!\n";

0
@@ -127,7 +127,7 @@ sub ircd_daemon_public {
0
 }
0
 
0
 sub publish_message {
0
-    my ($self, $kernel, $heap, $msg) = @_[OBJECT, KERNEL, HEAP, ARG0];
0
+    my ($self, $kernel, $msg) = @_[OBJECT, KERNEL, ARG0];
0
 
0
     my ($channel) = map { $_->{name} } grep { $_->{target} =~ /^$msg->{from}/ } @{ $self->channels }
0
         or return;