--- deliantra/server/ext/irc.ext	2009/01/25 17:36:42	1.15
+++ deliantra/server/ext/irc.ext	2009/03/11 22:36:39	1.16
@@ -99,7 +99,15 @@
          }
       },
       connect => sub {
-         warn "IRC: connected to IRC server: $BOTSERVER:$BOTPORT\n";
+         my ($con, $error) = @_;
+
+         if ($error) {
+            warn "IRC: CONNECT ERROR to IRC server: $BOTSERVER:$BOTPORT: $error\n";
+            undef $CON;
+
+         } else {
+            warn "IRC: connected to IRC server: $BOTSERVER:$BOTPORT\n";
+         }
       },
       registered => sub {
          warn "IRC: successfully logged into IRC server: $BOTSERVER:$BOTPORT\n";