print possible fix as error message.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@854 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl
index 84abc4b36c4a154ad695bdb61f257b24341253be..82816e0d6ccdb4e23971f69151a472027d4b96f4 100644 (file)
--- a/src/IRC/Irc.pl
+++ b/src/IRC/Irc.pl
@@ -102,7 +102,10 @@ sub irc {
     $conn = $irc->newconn(%args);
 
     if (!defined $conn) {
-       &ERROR("internal: perl IRC connection object does not exist.");
+       &ERROR("IRC: connection failed.");
+       &ERROR("Please check /etc/hosts to see if you have a localhost line like:");
+       &ERROR("127.0.0.1   localhost    localhost");
+       &ERROR("If this is still a problem, please contact the maintainer.");
        return 1;
     }