From aa447813d02ef58b9582cbf69b0b871589de652d Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Sun, 14 Jan 2001 01:04:49 +0000
Subject: [PATCH] use_protocols variable wasn't initialized

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1112 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/perl-common.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c
index e21e0cb8..714bbce5 100644
--- a/src/perl/perl-common.c
+++ b/src/perl/perl-common.c
@@ -577,6 +577,8 @@ void perl_common_init(void)
 	plain_stashes = g_hash_table_new((GHashFunc) g_str_hash,
 					 (GCompareFunc) g_str_equal);
         irssi_add_plains(core_plains);
+
+        use_protocols = NULL;
 	g_slist_foreach(chat_protocols, (GFunc) perl_register_protocol, NULL);
 
 	signal_add("chat protocol created", (SIGNAL_FUNC) sig_protocol_created);