zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-19 16:42:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

Perl works again :) Split to Irssi and Irssi::Irc packages.

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@705 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-10-01 20:48:48 +00:00 • committed by cras
commit 62dee8fdaf
20 changed files with 904 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/perl/irssi-perl.c
View file

@ -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);