diff options
author | Timo Sirainen <cras@irssi.org> | 2001-12-14 01:54:12 +0000 |
---|---|---|
committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-12-14 01:54:12 +0000 |
commit | 6774b4b30f0b43fc7c9942bf4f4f39c953b5ef6e (patch) | |
tree | c6e4846117c6eb1fe83bcd3cdeeac4160eca037d /src/perl | |
parent | ebd09ede510701de8782319ff47511abf55eddff (diff) | |
download | irssi-6774b4b30f0b43fc7c9942bf4f4f39c953b5ef6e.zip |
Added reference counting to server record. At least now we don't accidentally
use a destroyed server record when some /command disconnects the server
(shouldn't happen really) or when irc_send_cmd() fails sending data to server
and disconnects the server (I don't know if this ever happens, but if it does,
it very well could have caused crashes)
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2243 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl')
-rw-r--r-- | src/perl/common/Server.xs | 8 | ||||
-rw-r--r-- | src/perl/module.h | 2 |
2 files changed, 9 insertions, 1 deletions
diff --git a/src/perl/common/Server.xs b/src/perl/common/Server.xs index 1ae534cf..5516cc4a 100644 --- a/src/perl/common/Server.xs +++ b/src/perl/common/Server.xs @@ -59,6 +59,14 @@ void server_disconnect(server) Irssi::Server server +void +server_ref(server) + Irssi::Server server + +void +server_unref(server) + Irssi::Server server + int isnickflag(server, flag) Irssi::Server server diff --git a/src/perl/module.h b/src/perl/module.h index c54cd61a..e12482ab 100644 --- a/src/perl/module.h +++ b/src/perl/module.h @@ -22,4 +22,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 20011204 +#define IRSSI_PERL_API_VERSION 20011214 |