Changeset 7949 for lang/perl/Skype4IRC

Show
Ignore:
Timestamp:
03/14/08 17:43:31 (5 years ago)
Author:
typester
Message:

なぜか二重にarray refっててSkypeからircのコンタクトリストを更新するところが全く動いてなかったのを修正

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Skype4IRC/trunk/lib/Skype4IRC/IRCD.pm

    r7567 r7949  
    5151    my ($self, $kernel, $nick, $message) = @_[OBJECT, KERNEL, ARG0, ARG1]; 
    5252 
    53     $kernel->call( update_contact => [[$nick, $nick]] ); 
     53    $kernel->call( update_contact => [$nick, $nick] ); 
    5454    $self->ircd->yield( daemon_cmd_privmsg => $nick => $self->{nick} => $_ ) for split /\r?\n/, $message; 
    5555} 
    … …  
    6262        next if $member eq $self->{nick}; 
    6363 
    64         $kernel->call( update_contact => [[$member, $member]] ); 
     64        $kernel->call( update_contact => [$member, $member] ); 
    6565        $self->ircd->yield( daemon_cmd_join => $member => $data->{channel} ); 
    6666    }