From b25310faf1b41e105394e4791bc8acba2e9c796d Mon Sep 17 00:00:00 2001
From: Wouter Coekaerts <coekie@irssi.org>
Date: Tue, 26 Apr 2005 12:25:19 +0000
Subject: [PATCH] Fix tr_TR locale problem for glib2 (still a bug with glib1.2)
 by David Pashley

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

diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c
index 4ff3b64a..02ae28dd 100644
--- a/src/perl/perl-common.c
+++ b/src/perl/perl-common.c
@@ -566,8 +566,13 @@ static void perl_register_protocol(CHAT_PROTOCOL_REC *rec)
 	chat_type = chat_protocol_lookup(rec->name);
 	g_return_if_fail(chat_type >= 0);
 
+#if GLIB_MAJOR_VERSION < 2
 	name = g_strdup(rec->name);
 	g_strdown(name+1);
+#else
+	name = g_ascii_strdown(rec->name,-1);
+	*name = *(rec->name);
+#endif
 
 	/* window items: channel, query */
 	type = module_get_uniq_id_str("WINDOW ITEM TYPE", "CHANNEL");