diff --git a/docs/PERL b/docs/PERL
index 646eec73..a96f768a 100644
--- a/docs/PERL
+++ b/docs/PERL
@@ -173,13 +173,13 @@ command_bind(cmd, category, func)
 command_unbind(cmd, func)
   Unbind command `cmd' from function 'func.
 
-Server::command_split(cmd, arg, max_nicks)
+Server::irc_send_cmd_split(cmd, arg, max_nicks)
   Split the `cmd' into several commands so `arg' argument has only
   `max_nicks' number of nicks.
 
-  Example: $server->command_split("KICK nick1,nick2,nick3 :byebye", 1, 2);
-  Irssi will send commands "KICK nick1,nick2 :byebye" and
-  "KICK nick3 :byebye" to server.
+  Example: $server->irc_send_cmd_split("KICK #channel nick1,nick2,nick3 :byebye", 2, 2);
+  Irssi will send commands "KICK #channel nick1,nick2 :byebye" and
+  "KICK #channel nick3 :byebye" to server.
 
 
  *** Server functions
diff --git a/src/common-setup.h b/src/common-setup.h
index 097f814a..ace90a8c 100644
--- a/src/common-setup.h
+++ b/src/common-setup.h
@@ -1,6 +1,7 @@
 #ifndef __COMMON_SETUP_H
 #define __COMMON_SETUP_H
 
+#include "irc-base/network.h"
 #include "settings/settings-public.h"
 
 #define LOG_FILE_CREATE_MODE 0644
@@ -69,5 +70,7 @@ SETUP_CHANNEL_REC;
 extern GList *setupchannels;
 
 extern gboolean readonly;
+extern IPADDR source_host_ip; /* Resolved address */
+extern gboolean source_host_ok; /* Use source_host_ip .. */
 
 #endif