if not defined $s;
length $s
or last;
- if($s =~ /^\377\377\377\377challenge (.*)$/s)
+ if($s =~ /^\377\377\377\377challenge (.*)(?:$|\0)/s)
{
return $1;
}
return;
# this will keep irc_error_active
}
- $channels{irc} = new Channel::Line(new Connection::Socket(tcp => "" => $config{irc_server} => 6667));
+ $channels{irc} = new Channel::Line(new Connection::Socket(tcp => $config{irc_local} => $config{irc_server} => 6667));
delete $store{$_} for grep { /^irc_/ } keys %store;
$store{irc_nick} = "";
schedule sub {