libpurple/plugins/perl/perl-common.c

changeset 35113
cb4744a66862
parent 34805
aa65e5a9f2ef
child 35812
48c6ee645ca1
--- a/libpurple/plugins/perl/perl-common.c	Sun Dec 08 02:52:23 2013 +0100
+++ b/libpurple/plugins/perl/perl-common.c	Sun Dec 08 08:03:07 2013 +0530
@@ -555,14 +555,22 @@
 			return newSVuv((unsigned long)*copy_arg);
 
 		case G_TYPE_INT64:
+			/* XXX This yells and complains. */
+#if 0
 			*copy_arg = (void *)va_arg(*args, gint64);
 
 			return newSViv((gint64)*copy_arg);
+#endif
+			break;
 
 		case G_TYPE_UINT64:
+			/* XXX This also yells and complains. */
+#if 0
 			*copy_arg = (void *)va_arg(*args, guint64);
 
 			return newSVuv((guint64)*copy_arg);
+#endif
+			break;
 
 		case G_TYPE_STRING:
 			if ((*copy_arg = (void *)va_arg(*args, char *)) == NULL)

mercurial