--- deliantra/maps/perl/schmorp-irc.ext 2006/08/03 11:15:49 1.3 +++ deliantra/maps/perl/schmorp-irc.ext 2006/08/03 11:23:58 1.4 @@ -1,4 +1,5 @@ #! perl + use Time::HiRes; use Net::IRC3::Client::Connection; @@ -21,6 +22,7 @@ sub check_connection { return if $CON; + $CON = Net::IRC3::Client::Connection->new; $CON->connect ($BOTSERVER, $BOTPORT); $CON->send_srv (JOIN => undef, $BOTCHAN);