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/common/Core.xs | 10 ++++++++--
 src/perl/irc/Dcc.xs     |  8 +++++++-
 src/perl/irc/Modes.xs   | 16 ++++++++++++++--
 src/perl/irc/Server.xs  |  8 +++++++-
 src/perl/ui/Formats.xs  |  8 +++++++-
 5 files changed, 43 insertions(+), 7 deletions(-)

(limited to 'src')

diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index d6fdfdd8..da29b521 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -445,9 +445,15 @@ int
 level2bits(str)
 	char *str
 
-char *
+void
 bits2level(bits)
 	int bits
+PREINIT:
+	char *ret;
+PPCODE:
+	ret = bits2level(bits);
+	xPUSHs(sv_2mortal(new_pv(ret)));
+	g_free(ret);
 
 int
 combine_level(level, str)
@@ -513,7 +519,7 @@ void
 pidwait_remove(pid)
 	int pid
 
-char *
+void
 parse_special(cmd, data="", flags=0)
 	char *cmd
 	char *data
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)
diff --git a/src/perl/ui/Formats.xs b/src/perl/ui/Formats.xs
index d016f07d..f7a5414b 100644
--- a/src/perl/ui/Formats.xs
+++ b/src/perl/ui/Formats.xs
@@ -26,9 +26,15 @@ format_real_length(str, len)
 	char *str
 	int len
 
-char *
+void
 strip_codes(input)
 	char *input
+PREINIT:
+	char *ret;
+PPCODE:
+	ret = strip_codes(input);
+	xPUSHs(sv_2mortal(new_pv(ret)));
+	g_free(ret);
 
 void
 format_get_text(window, module, server, target, formatnum, ...)
-- 
cgit v1.2.3