From: phyber <redacted>
Date: Fri, 9 Jan 2015 15:52:45 +0000 (+0000)
Subject: (quakequit) Rename purge_nick -> quitlist_del.
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=b0b83c025819e0b5c58fa0fa89af594ed6288e0f;p=irssi-scripts.irssi.org.git

(quakequit) Rename purge_nick -> quitlist_del.
---

diff --git a/scripts/quakequit.pl b/scripts/quakequit.pl
index 2f48515..d34a115 100644
--- a/scripts/quakequit.pl
+++ b/scripts/quakequit.pl
@@ -59,11 +59,12 @@ sub in_quitlist {
 
 sub quitlist_add {
 	my ($tag, $nick) = @_;
+	dprint("Adding $tag/$nick to the quitlist");
 	$quits{$tag . ':' . $nick} = 1;
 }
 
 # Remove entries from the quits hash.
-sub purge_nick {
+sub quitlist_del {
 	my ($nick) = @_;
 	dprint("Purging $nick from the quits list");
 	delete $quits{$nick};
@@ -130,8 +131,10 @@ sub message_quit {
 	# If the quit message is registered, add the person to our quit hash
 	# and abort the signal.
 	quitlist_add($tag, $nick);
-	Irssi::timeout_add_once(1000, 'purge_nick', $tag.':'.$nick);
 	Irssi::signal_stop();
+
+	# Setup a timeout to delete the entry in 1 second.
+	Irssi::timeout_add_once(1000, 'quitlist_del', $tag.':'.$nick);
 	return 0;
 }