From 2adba92338ce4acc6c52300ba76907686ec42284 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Mon, 13 May 2002 17:57:19 +0000
Subject: fixed memory leaks with several functions.

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2789 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/irc/Dcc.xs    |  8 +++++++-
 src/perl/irc/Modes.xs  | 16 ++++++++++++++--
 src/perl/irc/Server.xs |  8 +++++++-
 3 files changed, 28 insertions(+), 4 deletions(-)

(limited to 'src/perl/irc')

diff --git a/src/perl/irc/Dcc.xs b/src/perl/irc/Dcc.xs
index 657783a7..8c906a19 100644
--- a/src/perl/irc/Dcc.xs
+++ b/src/perl/irc/Dcc.xs
@@ -58,9 +58,15 @@ dcc_ctcp_message(server, target, chat, notice, msg)
 	int notice
 	char *msg
 
-char *
+void
 dcc_get_download_path(fname)
 	char *fname
+PREINIT:
+	char *ret;
+PPCODE:
+	ret = dcc_get_download_path(fname);
+	xPUSHs(sv_2mortal(new_pv(ret)));
+	g_free(ret);
 
 #*******************************
 MODULE = Irssi::Irc::Dcc  PACKAGE = Irssi::Irc::Dcc  PREFIX = dcc_
diff --git a/src/perl/irc/Modes.xs b/src/perl/irc/Modes.xs
index 5dcb3389..723930fb 100644
--- a/src/perl/irc/Modes.xs
+++ b/src/perl/irc/Modes.xs
@@ -3,21 +3,33 @@
 MODULE = Irssi::Irc::Modes	PACKAGE = Irssi::Irc
 PROTOTYPES: ENABLE
 
-char *
+void
 modes_join(old, mode, channel)
 	char *old
 	char *mode
         int channel
+PREINIT:
+	char *ret;
+PPCODE:
+	ret = modes_join(old, mode, channel);
+	xPUSHs(sv_2mortal(new_pv(ret)));
+	g_free(ret);
 
 #*******************************
 MODULE = Irssi::Irc::Modes	PACKAGE = Irssi::Irc::Channel  PREFIX = channel_
 #*******************************
 
-char *
+void
 ban_get_mask(channel, nick, ban_type)
 	Irssi::Irc::Channel channel
 	char *nick
 	int ban_type
+PREINIT:
+	char *ret;
+PPCODE:
+	ret = ban_get_mask(channel, nick, ban_type);
+	xPUSHs(sv_2mortal(new_pv(ret)));
+	g_free(ret);
 
 Irssi::Irc::Ban
 banlist_add(channel, ban, nick, time)
diff --git a/src/perl/irc/Server.xs b/src/perl/irc/Server.xs
index 0cbcad8e..dfe88f65 100644
--- a/src/perl/irc/Server.xs
+++ b/src/perl/irc/Server.xs
@@ -45,9 +45,15 @@ static GSList *event_hash2list(HV *hv)
 MODULE = Irssi::Irc::Server	PACKAGE = Irssi::Irc::Server  PREFIX = irc_server_
 PROTOTYPES: ENABLE
 
-char *
+void
 irc_server_get_channels(server)
 	Irssi::Irc::Server server
+PREINIT:
+	char *ret;
+PPCODE:
+	ret = irc_server_get_channels(server);
+	xPUSHs(sv_2mortal(new_pv(ret)));
+	g_free(ret);
 
 void
 send_raw(server, cmd)
-- 
cgit v1.2.3