From a5b32b70a7db8ce41a37d9ee6fdef85300130351 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Sat, 20 Oct 2001 13:19:25 +0000
Subject: Added API version check between perl module and perl libs.
 perl_scripts_deinit() now destroys all dynamically loaded libraries (Irssi,
 Irssi::Irc, Irssi::UI too) so /UNLOAD perl should now release more memory,
 this also makes /unload perl, /load perl work again.

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1859 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/textui/TextUI.xs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/perl/textui/TextUI.xs')

diff --git a/src/perl/textui/TextUI.xs b/src/perl/textui/TextUI.xs
index 2fedc904..f3978212 100644
--- a/src/perl/textui/TextUI.xs
+++ b/src/perl/textui/TextUI.xs
@@ -82,6 +82,7 @@ PREINIT:
 	static int initialized = FALSE;
 CODE:
 	if (initialized) return;
+	perl_api_version_check("Irssi::TextUI");
 	initialized = TRUE;
 
         irssi_add_plains(textui_plains);
-- 
cgit v1.2.3