aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-12-04 14:46:39 -05:00
Code

Fixes to make irssi work with other (older and newer) perl versions

Browse Source 
than 5.005


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@610 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-08-16 00:20:05 +00:00 committed by cras
parent a02b903252
commit 337d34fe54
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/perl/irssi-perl.c
View File

@ -33,6 +33,15 @@
#include "commands.h" #include "commands.h"
#include "misc.h" #include "misc.h"
/* For compatibility with perl 5.004 and older */
#ifndef ERRSV
# define ERRSV GvSV(errgv)
#endif
#ifndef PL_perl_destruct_level
# define PL_perl_destruct_level perl_destruct_level
#endif
extern void xs_init(void); extern void xs_init(void);
typedef struct { typedef struct {
@ -664,7 +673,7 @@ void irssi_perl_init(void)
command_bind("perlflush", NULL, (SIGNAL_FUNC) cmd_perlflush); command_bind("perlflush", NULL, (SIGNAL_FUNC) cmd_perlflush);
signal_grabbed = siglast_grabbed = FALSE; signal_grabbed = siglast_grabbed = FALSE;
perl_destruct_level = 1; PL_perl_destruct_level = 1;
irssi_perl_start(); irssi_perl_start();
irssi_perl_autorun(); irssi_perl_autorun();
} }