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

Updated perl API version. Fixed irssi to behave better if the API doesn't

Browse source 
match (doesn't crash).


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1985 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-11-11 22:39:56 +00:00 • committed by cras
commit ea03650b3f
6 changed files with 21 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -141,6 +141,9 @@ void perl_scripts_init(void)
/* Destroy all perl scripts and deinitialize perl interpreter */
void perl_scripts_deinit(void)
{
if (my_perl == NULL)
return;
/* destroy all scripts */
while (perl_scripts != NULL)
perl_script_destroy(perl_scripts->data);
@ -417,7 +420,7 @@ static void sig_script_error(PERL_SCRIPT_REC *script, const char *error)
}
}
static void sig_autorun()
static void sig_autorun(void)
{
signal_remove("irssi init finished", (SIGNAL_FUNC) sig_autorun);