From d322b86c3d92b671bfdda75e6cb743935868b18e Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Fri, 1 Feb 2002 23:14:00 +0000
Subject: [PATCH] Removed some backwards compatibility code between CVS
 versions that broke /SET use_perl_lib

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2367 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/perl-core.c | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c
index d1063682..1ed95c37 100644
--- a/src/perl/perl-core.c
+++ b/src/perl/perl-core.c
@@ -441,19 +441,6 @@ static void sig_autorun(void)
 
 void perl_core_init(void)
 {
-	/* FIXME: remove before .99 - backwards compatibility
-	   fix between CVS versions */
-	CONFIG_NODE *node;
-
-	node = iconfig_node_traverse("settings", FALSE);
-	if (node != NULL)
-                node = config_node_section(node, "perl/core", -1);
-	if (node != NULL) {
-                g_free(node->key);
-		node->key = g_strdup("perl/core/scripts");
-	}
-        /* ----- */
-
         print_script_errors = 1;
 	settings_add_str("perl", "perl_use_lib", PERL_USE_LIB);