Added SILC Thread Queue API

[runtime.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 83c2a366bf7c6d52070672918494afdb8d26cbcc..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)
@@ -36,6 +39,7 @@ static void perl_window_fill_hash(HV *hv, WINDOW_REC *window)
        hv_store(hv, "servertag", 9, new_pv(window->servertag), 0);
        hv_store(hv, "level", 5, newSViv(window->level), 0);
 
+       hv_store(hv, "immortal", 8, newSViv(window->immortal), 0);
        hv_store(hv, "sticky_refnum", 13, newSViv(window->sticky_refnum), 0);
 
        hv_store(hv, "data_level", 10, newSViv(window->data_level), 0);
@@ -96,6 +100,7 @@ deinit()
 CODE:
        if (!initialized) return;
         perl_themes_deinit();
+       initialized = FALSE;
 
 BOOT:
        irssi_boot(UI__Formats);