diff options
| author | Timo Sirainen <cras@irssi.org> | 2000-10-01 20:48:48 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2000-10-01 20:48:48 +0000 |
| commit | 62dee8fdafe558b638cfc1995841e3ca7e007368 (patch) | |
| tree | ce328ef6fb25a689b0364743a9f3c59405302b9e /src/perl/irssi-perl.c | |
| parent | c1a191955ba9903e1dc07b49886a9ce52fdf4207 (diff) | |
| download | irssi-62dee8fdafe558b638cfc1995841e3ca7e007368.zip | |
Perl works again :) Split to Irssi and Irssi::Irc packages.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@705 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/irssi-perl.c')
| -rw-r--r-- | src/perl/irssi-perl.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/perl/irssi-perl.c b/src/perl/irssi-perl.c index c6efac8a..44dcd7b6 100644 --- a/src/perl/irssi-perl.c +++ b/src/perl/irssi-perl.c @@ -32,6 +32,7 @@ #include "signals.h" #include "commands.h" #include "misc.h" +#include "perl-common.h" /* For compatibility with perl 5.004 and older */ #ifndef ERRSV @@ -667,8 +668,9 @@ static void irssi_perl_autorun(void) void irssi_perl_init(void) { - perl_scripts = NULL; + perl_common_init(); + perl_scripts = NULL; command_bind("run", NULL, (SIGNAL_FUNC) cmd_run); command_bind_first("unload", NULL, (SIGNAL_FUNC) cmd_unload); command_bind("perlflush", NULL, (SIGNAL_FUNC) cmd_perlflush); @@ -682,6 +684,7 @@ void irssi_perl_init(void) void irssi_perl_deinit(void) { irssi_perl_stop(); + perl_common_deinit(); if (signal_grabbed) signal_remove("signal", (SIGNAL_FUNC) sig_signal); if (siglast_grabbed) signal_remove("last signal", (SIGNAL_FUNC) sig_lastsignal); |