# HG changeset patch
# User Eric Warmenhoven <eric@warmenhoven.org>
# Date 1004992912 0
# Node ID 52342b416ca24398138420c1d3eb1d23bc897aac
# Parent  cfe797cf62ef2add0fcacdb94877aabeee612275
[gaim-migrate @ 2690]
John Watson pointed this out.

committer: Tailor Script <tailor@pidgin.im>

diff -r cfe797cf62ef -r 52342b416ca2 src/perl.c
--- a/src/perl.c	Mon Nov 05 15:29:34 2001 +0000
+++ b/src/perl.c	Mon Nov 05 20:41:52 2001 +0000
@@ -761,7 +761,7 @@
 		char *tmp2, *tmp3;
 		tmp2 = g_strdup(escape_quotes(arg2));
 		tmp3 = arg3 ? g_strdup(escape_quotes(arg3)) : g_malloc0(1);
-		buf = g_strdup_printf("%lu \"%s\" %s", (unsigned long)arg1, tmp2, tmp3);
+		buf = g_strdup_printf("'%lu','\"%s\"','%s'", (unsigned long)arg1, tmp2, tmp3);
 		g_free(tmp2);
 		g_free(tmp3);
 		}