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))