--- a/libpurple/plugins/perl/perl-handlers.c	Wed Feb 10 07:09:52 2010 +0000
+++ b/libpurple/plugins/perl/perl-handlers.c	Wed Feb 10 09:04:15 2010 +0000
@@ -298,11 +298,7 @@
 
 	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]);