@@ -7,7 +7,6 @@ use POE; use Twirc::Jabber; use Twirc::Server; -use Twirc::Ustream; has config => ( is => 'rw', lib/Twirc.pm @@ -1,4 +1,5 @@ package Twirc::Jabber; +use utf8; use Moose; use POE; @@ -119,7 +120,7 @@ sub send_message { } sub error_handler { - my ($kernel, $sender, $heap, $error) = @_[KERNEL, SENDER, HEAP, ARG0]; + my ($kernel, $sender, $error) = @_[KERNEL, SENDER, ARG0]; if ( $error == +PCJ_SOCKETFAIL or $error == +PCJ_SOCKETDISCONNECT or $error == +PCJ_CONNECTFAIL ) { print "Reconnecting!\n"; lib/Twirc/Jabber.pm @@ -127,7 +127,7 @@ sub ircd_daemon_public { } sub publish_message { - my ($self, $kernel, $heap, $msg) = @_[OBJECT, KERNEL, HEAP, ARG0]; + my ($self, $kernel, $msg) = @_[OBJECT, KERNEL, ARG0]; my ($channel) = map { $_->{name} } grep { $_->{target} =~ /^$msg->{from}/ } @{ $self->channels } or return; lib/Twirc/Server.pm 0ddecc3ed271843a4849777d3df4cda88b203c0c Daisuke Murase typester@cpan.org http://github.com/typester/twirc/commit/2647c049f21c3cfde8c2949dc050bce0b626c012 2647c049f21c3cfde8c2949dc050bce0b626c012 2008-07-25T01:06:38-07:00 2008-07-25T01:06:38-07:00 つかってないheapを削除 e6cd8036f54a541e6374a2bcfe1f30c5ab3429c6 Daisuke Murase typester@cpan.org