public
Description: perl irc-jabber gateway especialy for twitter or something else twitter like services
Clone URL: git://github.com/typester/twirc.git
つかってないheapを削除
typester (author)
Fri Jul 25 01:06:38 -0700 2008
commit  2647c049f21c3cfde8c2949dc050bce0b626c012
tree    e6cd8036f54a541e6374a2bcfe1f30c5ab3429c6
parent  0ddecc3ed271843a4849777d3df4cda88b203c0c
...
7
8
9
10
11
12
13
...
7
8
9
 
10
11
12
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',
...
1
 
2
3
4
...
119
120
121
122
 
123
124
125
...
1
2
3
4
5
...
120
121
122
 
123
124
125
126
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";
...
127
128
129
130
 
131
132
133
...
127
128
129
 
130
131
132
133
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;

Comments

    No one has commented yet.