[gaim-migrate @ 1860]

Tue, 15 May 2001 23:34:40 +0000

author
Eric Warmenhoven <warmenhoven@yahoo.com>
date
Tue, 15 May 2001 23:34:40 +0000
changeset 1850
2f953a542799
parent 1849
1da31911550d
child 1851
8bc0516361d1

[gaim-migrate @ 1860]
i think this was bad

src/perl.c file | annotate | diff | comparison | revisions
--- 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));

mercurial