- fixed, found by someone (lnx.de?)

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

diff --git a/src/Modules/insult.pl b/src/Modules/insult.pl
index 662542d57de6c63fd75bbc1dcbe5cbc926e7e0e9..e13979113f198db4b650ea3b45ec399c88cb9d63 100644 (file)
--- a/src/Modules/insult.pl
+++ b/src/Modules/insult.pl
@@ -1,6 +1,7 @@
 #
 # insult.pl: insult engine
-#       ???: ???
+#      TODO: move this code out to a common file like I did with DNS.
+#           => use the command hooks system aswell
 #
 
 use strict;
@@ -9,7 +10,7 @@ package Insult;
 
 sub Insult {
     my ($insultwho) = @_;
-    return unless &loadPerlModule("Net::Telnet");
+    return unless &::loadPerlModule("Net::Telnet");
 
     my $t = new Net::Telnet(Timeout => 3);
     $t->Net::Telnet::open(Host => "insulthost.colorado.edu", Port => "1695");
@@ -21,7 +22,7 @@ sub Insult {
        $line =~ s/^\s*You are/$insultwho is/i;
     }
 
-    &performStrictReply($line);
+    &::pSReply($line);
 }
 
 1;