Perl working again, better than ever (unless there's bugs :)

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@191 dbcabf3a-b0e7-0310-adc4-f8d773084564

1 files changed, 11 insertions, 0 deletions

diff --git a/src/fe-text/irssi.c b/src/fe-text/irssi.c
index 723d5d9e..d427a208 100644
--- a/src/fe-text/irssi.c
+++ b/src/fe-text/irssi.c
@@ -43,6 +43,11 @@
 void irc_init(void);
 void irc_deinit(void);
 
+#ifdef HAVE_PERL
+void irssi_perl_init(void);
+void irssi_perl_deinit(void);
+#endif
+
 static GMainLoop *main_loop;
 int quitting;
 
@@ -101,6 +106,9 @@ static void textui_finish_init(void)
     gui_statusbar_items_init();
 
     signal_emit("irssi init finished", 0);
+#ifdef HAVE_PERL
+    irssi_perl_init();
+#endif
     screen_refresh_thaw();
 }
 
@@ -110,6 +118,9 @@ static void textui_deinit(void)
     signal(SIGINT, SIG_DFL);
 
     signal_remove("gui exit", (SIGNAL_FUNC) sig_exit);
+#ifdef HAVE_PERL
+    irssi_perl_deinit();
+#endif
     gui_textwidget_deinit();
     gui_special_vars_deinit();
     gui_statusbar_items_deinit();