# HG changeset patch
# User Eric Warmenhoven <warmenhoven@yahoo.com>
# Date 989969680 0
# Node ID 2f953a5427994d6c456f68685fa0b57c4fc3cebf
# Parent  1da31911550d333834ace527ce46cf8fac8a7564
[gaim-migrate @ 1860]
i think this was bad

diff -r 1da31911550d -r 2f953a542799 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));