diff -r 4354e9b4ffde -r 40e3e9919771 plugins/perl/perl-common.c
--- a/plugins/perl/perl-common.c	Sun Oct 12 05:25:41 2003 +0000
+++ b/plugins/perl/perl-common.c	Sun Oct 12 05:59:05 2003 +0000
@@ -545,7 +545,7 @@
 				if ((*copy_arg = (void *)va_arg(*args, char *)) == NULL)
 					return &PL_sv_undef;
 
-				return newSVGChar(*(char *)*copy_arg);
+				return newSVGChar((char *)*copy_arg);
 
 			case GAIM_TYPE_POINTER:
 				if ((*copy_arg = (void *)va_arg(*args, void *)) == NULL)