changeset 1850:193420b4ca39

[gaim-migrate @ 1860] i think this was bad committer: Tailor Script <tailor@pidgin.im>
author Eric Warmenhoven <eric@warmenhoven.org>
date Tue, 15 May 2001 23:34:40 +0000
parents 26cafe32d967
children 97a097e00139
files src/perl.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/perl.c	Tue May 15 00:44:09 2001 +0000
+++ b/src/perl.c	Tue May 15 23:34:40 2001 +0000
@@ -126,7 +126,7 @@
 
 	if (perl_cmd)
 		g_free(perl_cmd);
-	perl_cmd = g_malloc(strlen(function) + strlen(args) + 2 + 10);
+	perl_cmd = g_malloc(strlen(function) + (strlen(args) * 2) + 2 + 10);
 	sprintf(perl_cmd, "&%s('%s')", function, escape_quotes(args));
 #ifndef HAVE_PERL_EVAL_PV
 	return (perl_eval_pv(perl_cmd, TRUE));