--- deliantra/maps/perl/schmorp-irc.ext	2006/08/03 11:23:58	1.4
+++ deliantra/maps/perl/schmorp-irc.ext	2006/08/14 04:19:28	1.5
@@ -11,7 +11,7 @@
 my $CON; # the connection
 
 sub on_unload {
-   $CON->disconnect;
+   $CON->disconnect if $CON;
    undef $CON;
 }