diff -r 000d887035a2 -r 9cccb3792018 plugins/perl/perl-common.c
--- a/plugins/perl/perl-common.c	Thu Oct 30 21:55:29 2003 +0000
+++ b/plugins/perl/perl-common.c	Thu Oct 30 22:27:36 2003 +0000
@@ -499,19 +499,19 @@
 				return gaim_perl_sv_from_subtype(value, *copy_arg);
 
 			case GAIM_TYPE_BOOLEAN:
-				*copy_arg = (void *)va_arg(*args, gboolean);
+				*copy_arg = GINT_TO_POINTER( va_arg(*args, gboolean) );
 
-				return newSViv((gboolean)*copy_arg);
+				return newSViv((gboolean)GPOINTER_TO_INT(*copy_arg));
 
 			case GAIM_TYPE_INT:
-				*copy_arg = (void *)va_arg(*args, int);
+				*copy_arg = GINT_TO_POINTER( va_arg(*args, int) );
 
-				return newSViv((int)*copy_arg);
+				return newSViv(GPOINTER_TO_INT(*copy_arg));
 
 			case GAIM_TYPE_UINT:
-				*copy_arg = (void *)va_arg(*args, unsigned int);
+				*copy_arg = GUINT_TO_POINTER(va_arg(*args, unsigned int));
 
-				return newSVuv((unsigned int)*copy_arg);
+				return newSVuv(GPOINTER_TO_UINT(*copy_arg));
 
 			case GAIM_TYPE_LONG:
 				*copy_arg = (void *)va_arg(*args, long);