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.pm | 2 +- src/perl/textui/TextUI.xs | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) (limited to 'src/perl/textui') diff --git a/src/perl/textui/TextUI.pm b/src/perl/textui/TextUI.pm index df7e8674..21f6d03b 100644 --- a/src/perl/textui/TextUI.pm +++ b/src/perl/textui/TextUI.pm @@ -7,7 +7,7 @@ package Irssi::TextUI; use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); -$VERSION = "0.20"; +$VERSION = "0.8"; require Exporter; require DynaLoader; 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