From 0aa3bd828d0482ad2bd15ef94ce88bf52fb68849 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 14 Jun 2001 15:56:07 +0000
Subject: [PATCH] - 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
---
 src/Modules/insult.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/Modules/insult.pl b/src/Modules/insult.pl
index 662542d..e139791 100644
--- 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;
-- 
2.39.2