From af0ecb300f874957389bd6966cb99750261b1a06 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Sl=C3=A1vek=20Banko?= <slavek.banko@axis.cz>
Date: Tue, 19 Feb 2013 04:53:14 +0100
Subject: Fix unintended rename of many various *klist*

---
 ksirc/default.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ksirc/default.pl b/ksirc/default.pl
index e253f1e9..7b42dd18 100644
--- a/ksirc/default.pl
+++ b/ksirc/default.pl
@@ -428,12 +428,12 @@ sub cmd_fk {
   $n0thing_kickpat=$newarg;
   &slashify($n0thing_kickpat);
   $n0thing_kickmsg=$args || "though names may change each face retains the mask it wore";
-  &addhook("352", "doftdelist");
+  &addhook("352", "dofklist");
   &addhook("315", "donefk");
   &sl("WHO $talkchannel");
 }
 &addcmd("fk");
-sub hook_doftdelist {
+sub hook_dofklist {
   local($a)=@_;
   local($c, $c, $u, $h, $s, $n)=split(/ +/, $a);
   (($n."!".$u."\@".$h) =~ /${n0thing_kickpat}/i) && $n ne $nick &&
@@ -441,7 +441,7 @@ sub hook_doftdelist {
   $silent=1;
 }
 sub hook_donefk {
-  &remhook("352", "doftdelist");
+  &remhook("352", "dofklist");
   &remhook("315", "donefk");
 }
 sub cmd_setaway {
-- 
cgit v1.2.1