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

Added API version check between perl module and perl libs.

Browse source 
perl_scripts_deinit() now destroys all dynamically loaded libraries (Irssi,
Irssi::Irc, Irssi::UI too) so /UNLOAD perl should now release more memory,
this also makes /unload perl, /load perl work again.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1859 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-10-20 13:19:25 +00:00 • committed by cras
commit a5b32b70a7
12 changed files with 81 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/perl/common/Irssi.pm
View file

@ -7,7 +7,7 @@ package Irssi;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
$VERSION = "0.20";
$VERSION = "0.8";
require Exporter;
require DynaLoader;
@ -29,5 +29,7 @@ bootstrap Irssi $VERSION;
@Irssi::Channel::ISA = qw(Irssi::Windowitem);
@Irssi::Query::ISA = qw(Irssi::Windowitem);
Irssi::init();
1;

5
src/perl/common/Irssi.xs
View file

@ -4,6 +4,11 @@ MODULE = Irssi PACKAGE = Irssi
PROTOTYPES: ENABLE
void
init()
CODE:
perl_api_version_check("Irssi");
INCLUDE: Channel.xs
INCLUDE: Core.xs
INCLUDE: Ignore.xs