perl fixes

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@754 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-10-14 15:19:56 +00:00 committed by cras
commit 76a6b9a931
2 changed files with 14 additions and 2 deletions

View file

@ -23,6 +23,11 @@
#include "signals.h"
#include "core.h"
#ifdef HAVE_STATIC_PERL
void perl_init(void);
void perl_deinit(void);
#endif
void irc_init(void);
void irc_deinit(void);
@ -57,11 +62,19 @@ void noui_init(void)
signal_add("reload", (SIGNAL_FUNC) sig_reload);
signal_add("gui exit", (SIGNAL_FUNC) sig_exit);
#ifdef HAVE_STATIC_PERL
perl_init();
#endif
signal_emit("irssi init finished", 0);
}
void noui_deinit(void)
{
#ifdef HAVE_STATIC_PERL
perl_deinit();
#endif
signal_remove("reload", (SIGNAL_FUNC) sig_reload);
signal_remove("gui exit", (SIGNAL_FUNC) sig_exit);
irc_deinit();