Added SILC Thread Queue API

[crypto.git] / apps / irssi / src / perl / ui / UI.xs

diff --git a/apps/irssi/src/perl/ui/UI.xs b/apps/irssi/src/perl/ui/UI.xs
index c2ee46b48b82b3043e6c01d686512bb34f5c1db7..d8c7f7aef4d440b7bc90f9f85ad158e1b5624f42 100644 (file)
--- a/apps/irssi/src/perl/ui/UI.xs
+++ b/apps/irssi/src/perl/ui/UI.xs
@@ -1,5 +1,8 @@
 #include "module.h"
 
+void perl_themes_init(void);
+void perl_themes_deinit(void);
+
 static int initialized = FALSE;
 
 static void perl_process_fill_hash(HV *hv, PROCESS_REC *process)
@@ -97,6 +100,7 @@ deinit()
 CODE:
        if (!initialized) return;
         perl_themes_deinit();
+       initialized = FALSE;
 
 BOOT:
        irssi_boot(UI__Formats);