--- a/libpurple/plugins/perl/perl-handlers.c	Wed Feb 10 09:04:15 2010 +0000
+++ b/libpurple/plugins/perl/perl-handlers.c	Thu Mar 04 09:20:10 2010 +0000
@@ -298,7 +298,11 @@
 
 	for (i = 0; i < value_count; i++) {
 		sv_args[i] = purple_perl_sv_from_vargs(values[i],
+#ifdef VA_COPY_AS_ARRAY
 		                                       args,
+#else
+		                                       (va_list*)&args,
+#endif
 		                                       &copy_args[i]);
 
 		XPUSHs(sv_args[i]);