Mercurial > pidgin
diff src/perl.c @ 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 | 1e0613d9526b |
| children | e556ffa08cce |
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));