Merged Irssi SVN (upcoming irssi 0.8.11).

[silc.git] / apps / irssi / src / perl / common / Irssi.xs

diff --git a/apps/irssi/src/perl/common/Irssi.xs b/apps/irssi/src/perl/common/Irssi.xs
index 328e32d33e0d70f86a01bc542dca20e3094ea1c2..9f33d557191a9dab03687f74c81f5f1cd417683b 100644 (file)
--- a/apps/irssi/src/perl/common/Irssi.xs
+++ b/apps/irssi/src/perl/common/Irssi.xs
@@ -2,6 +2,12 @@
 
 static int initialized = FALSE;
 
+void perl_expando_init(void);
+void perl_expando_deinit(void);
+
+void perl_settings_init(void);
+void perl_settings_deinit(void);
+
 MODULE = Irssi  PACKAGE = Irssi
 
 PROTOTYPES: ENABLE
@@ -22,6 +28,7 @@ CODE:
        if (!initialized) return;
        perl_expando_deinit();
         perl_settings_deinit();
+       initialized = FALSE;
 
 BOOT:
         irssi_boot(Channel);