--- deliantra/server/ext/irc.ext	2009/03/11 22:36:39	1.16
+++ deliantra/server/ext/irc.ext	2009/06/26 16:02:15	1.17
@@ -70,6 +70,10 @@
    return if $CON;
 
    $CON = AnyEvent::IRC::Client->new;
+   $CON->set_exception_cb (sub {
+      my ($exp, $ev) = @_;
+      warn "IRC: IRC EXCEPTION (event $ev): $exp\n";
+   });
    $CON->connect ($BOTSERVER, $BOTPORT, {
       nick => $BOTNAME,
       user => $BOTNAME,