From cb0c661069a3d6cb3a98c5782c9e503c282b7ace Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Mon, 3 Dec 2001 14:40:54 +0000
Subject: [PATCH] a bit more proper initializing of Irssi package..

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

diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c
index 5d790a5e..4e22fae1 100644
--- a/src/perl/perl-core.c
+++ b/src/perl/perl-core.c
@@ -97,11 +97,14 @@ XS(boot_Irssi_Core)
         irssi_boot(Irc);
         irssi_boot(UI);
         irssi_boot(TextUI);
+	XSRETURN_YES;
 }
 #endif
 
 static void xs_init(void)
 {
+	dXSUB_SYS;
+
 #if PERL_STATIC_LIBS == 1
 	newXS("Irssi::Core::boot_Irssi_Core", boot_Irssi_Core, __FILE__);
 #endif