# HG changeset patch
# User Eric Warmenhoven <eric@warmenhoven.org>
# Date 989969680 0
# Node ID 193420b4ca39433b56ca6d519cf4fa2f9627f1fa
# Parent  26cafe32d967035ad7e9bd9effb06e3393969367
[gaim-migrate @ 1860]
i think this was bad

committer: Tailor Script <tailor@pidgin.im>

diff -r 26cafe32d967 -r 193420b4ca39 src/perl.c
--- 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));