Added SILC Thread Queue API

[crypto.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 c84918e82e6a94efaff8c1f80863cc9bbfc2f93e..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
@@ -14,16 +20,20 @@ CODE:
        initialized = TRUE;
 
         perl_settings_init();
+       perl_expando_init();
 
 void
 deinit()
 CODE:
        if (!initialized) return;
+       perl_expando_deinit();
         perl_settings_deinit();
+       initialized = FALSE;
 
 BOOT:
         irssi_boot(Channel);
        irssi_boot(Core);
+       irssi_boot(Expando);
        irssi_boot(Ignore);
        irssi_boot(Log);
        irssi_boot(Masks);
@@ -31,4 +41,3 @@ BOOT:
        irssi_boot(Rawlog);
        irssi_boot(Server);
        irssi_boot(Settings);
-       irssi_boot(Blob);