zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-17 23:52:22 +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

11
src/perl/perl-core.h
View file

@ -41,14 +41,9 @@ int perl_get_api_version(void);
/* Checks that the API version is correct. */
#define perl_api_version_check(library) \
if (perl_get_api_version() != IRSSI_PERL_API_VERSION) { \
char *str; \
str = g_strdup_printf("Version of perl module (%d) " \
"doesn't match the version of " \
library" library (%d)", \
perl_get_api_version(), \
IRSSI_PERL_API_VERSION); \
signal_emit("gui dialog", 2, "error", str); \
g_free(str); \
die("Version of perl module (%d) doesn't match the " \
"version of "library" library (%d)", \
perl_get_api_version(), IRSSI_PERL_API_VERSION); \
return; \
}