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/ui/Formats.xs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/perl/ui')

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