[SimBot-commits] CVS: simbot simbot.pl,1.143,1.144

[Kevin S. <ks...@us...>]

Update of /cvsroot/simbot/simbot
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26260

Modified Files:
	simbot.pl 
Log Message:
Plug the other warning too.

Index: simbot.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/simbot.pl,v
retrieving revision 1.143
retrieving revision 1.144
diff -u -d -p -r1.143 -r1.144
--- simbot.pl	17 Dec 2005 10:04:56 -0000	1.143
+++ simbot.pl	17 Dec 2005 10:07:21 -0000	1.144
@@ -1058,7 +1058,7 @@ sub send_message {
 	$text = &char_sub($text);
 	$text = &Encode::encode(TARGET_ENCODING, $text);
 	$kernel->post(bot => privmsg => $dest, $text);
-    my $public = 0;
+    My $public = 0;
 	if(@{$dest}) {
 		foreach(@{$dest}) {
 			if($_ =~ /[\#\&].+/) {
@@ -1716,6 +1716,9 @@ sub server_supports {
     &debug(DEBUG_INFO, "Server supports: " .
 		   (defined $message ? $message : "nothing") . "\n");
 
+	# Server supports... NOTHING!
+	return if (!defined $message);
+
     foreach my $cur_block (split(/ /, $message)) {
         if(my ($ircd) = $cur_block =~ m/^IRCD=(\S+)/) {
             if($ircd =~ m/dancer/) {