diff options
Diffstat (limited to 'src/perl')
-rw-r--r-- | src/perl/module.h | 2 | ||||
-rw-r--r-- | src/perl/perl-core.c | 5 | ||||
-rw-r--r-- | src/perl/perl-fe.c | 5 |
3 files changed, 11 insertions, 1 deletions
diff --git a/src/perl/module.h b/src/perl/module.h index 2fd15137..3cbdf3d5 100644 --- a/src/perl/module.h +++ b/src/perl/module.h @@ -17,4 +17,4 @@ extern PerlInterpreter *my_perl; /* must be called my_perl or some perl implemen /* Change this every time when some API changes between irssi's perl module (or irssi itself) and irssi's perl libraries. */ -#define IRSSI_PERL_API_VERSION 20011214 +#define IRSSI_PERL_API_VERSION (20011214 + IRSSI_ABI_VERSION) diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c index 1a864ef7..cb690906 100644 --- a/src/perl/perl-core.c +++ b/src/perl/perl-core.c @@ -479,3 +479,8 @@ void perl_core_deinit(void) signal_remove("script error", (SIGNAL_FUNC) sig_script_error); PERL_SYS_TERM(); } + +void perl_core_abicheck(int *version) +{ + *version = IRSSI_ABI_VERSION; +} diff --git a/src/perl/perl-fe.c b/src/perl/perl-fe.c index 2abc75c0..04305b63 100644 --- a/src/perl/perl-fe.c +++ b/src/perl/perl-fe.c @@ -278,3 +278,8 @@ void fe_perl_deinit(void) perl_core_print_script_error(TRUE); } + +void fe_perl_abicheck(int *version) +{ + *version = IRSSI_ABI_VERSION; +} |