diff -r 723be0ba502b -r 6738e212e4a8 src/perl.c
--- a/src/perl.c	Wed Apr 24 04:47:04 2002 +0000
+++ b/src/perl.c	Thu Apr 25 05:41:27 2002 +0000
@@ -717,7 +717,7 @@
 		char *t3, *t4;
 		t3 = g_strdup(escape_quotes(arg3));
 		t4 = arg4 ? g_strdup(escape_quotes(arg4)) : g_malloc0(1);
-		buf = g_strdup_printf("'%lu','%d','%s','%s'", (unsigned long)arg1, (int)arg2, t3, t4);
+		buf = g_strdup_printf("'%lu','%d','%s','%s'", (unsigned long)arg1, (int)arg2, *t3, *t4);
 		g_free(t3);
 		g_free(t4);
 		}