From 4100e4bebb7eb55909378afcc38feaf6a1f601af Mon Sep 17 00:00:00 2001
From: Benjamin Dauvergne <bdauvergne@entrouvert.com>
Date: Fri, 27 Sep 2013 09:59:55 +0200
Subject: [PATCH] bindings/perl: fix type of size variable incompatible with 64
 bits arch

---
 bindings/perl/glist_handling.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bindings/perl/glist_handling.c b/bindings/perl/glist_handling.c
index 5ce1aea9..3a044d19 100644
--- a/bindings/perl/glist_handling.c
+++ b/bindings/perl/glist_handling.c
@@ -68,7 +68,7 @@ xmlnode_to_pv(xmlNode *node, gboolean do_free)
 
 static xmlNode *
 pv_to_xmlnode(SV *value) {
-	unsigned int size;
+	STRLEN size;
 	char *string;
 
 	if (! SvPOK(value))