From 15933dcea016248e78fc021658a7ddef1f4eb809 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Fri, 16 Nov 2001 21:35:18 +0000
Subject: [PATCH] Fixed a few memory leaks

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2035 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/common/Core.xs | 24 ++++++++++++++----------
 1 file changed, 14 insertions(+), 10 deletions(-)

diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index 036deb32..6e0503d1 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -402,28 +402,32 @@ OUTPUT:
 MODULE = Irssi::Core	PACKAGE = Irssi::Server
 #*******************************
 
-char *
+void
 parse_special(server, cmd, data="", flags=0)
 	Irssi::Server server
 	char *cmd
 	char *data
 	int flags
-CODE:
-	RETVAL = parse_special_string(cmd, server, NULL, data, NULL, flags);
-OUTPUT:
-	RETVAL
+PREINIT:
+	char *ret;
+PPCODE:
+	ret = parse_special_string(cmd, server, NULL, data, NULL, flags);
+	XPUSHs(sv_2mortal(new_pv(ret)));
+	g_free_not_null(ret);
 
 #*******************************
 MODULE = Irssi::Core	PACKAGE = Irssi::Windowitem
 #*******************************
 
-char *
+void
 parse_special(item, cmd, data="", flags=0)
 	Irssi::Windowitem item
 	char *cmd
 	char *data
 	int flags
-CODE:
-	RETVAL = parse_special_string(cmd, item->server, item, data, NULL, flags);
-OUTPUT:
-	RETVAL
+PREINIT:
+	char *ret;
+PPCODE:
+	ret = parse_special_string(cmd, item->server, item, data, NULL, flags);
+	XPUSHs(sv_2mortal(new_pv(ret)));
+	g_free_not_null(ret);