diff --git a/bindings/perl/Makefile.am b/bindings/perl/Makefile.am
index 43d43886..9863f925 100644
--- a/bindings/perl/Makefile.am
+++ b/bindings/perl/Makefile.am
@@ -41,7 +41,7 @@ Makefile.perl: $(srcdir)/Makefile.PL Lasso.xs Lasso.pm
 		done; \
 		chmod -R u+rwX $(TOCOPY); \
 	fi;
-	$(AM_V_SUBMAKE) $(PERL) Makefile.PL PREFIX=$(prefix) CCFLAGS="$(LASSO_XS_CFLAGS)" INC="-I. -I$(top_srcdir)" LIBS="`$(top_builddir)/lasso-src-config --libs`" OPTIMIZE="-g" $(AM_V_SUBMAKE_POSTFIX)
+	$(AM_V_SUBMAKE) $(PERL) Makefile.PL PREFIX=$(prefix) CCFLAGS="$(LASSO_XS_CFLAGS)" INC="-I. -I$(top_srcdir) -I$(srcdir)" LIBS="`$(top_builddir)/lasso-src-config --libs`" OPTIMIZE="-g" $(AM_V_SUBMAKE_POSTFIX)
 
 Lasso.xs Lasso.pm: lang.py typemap-in typemap-out
 	$(AM_V_GEN) $(PYTHON) $(top_srcdir)/bindings/bindings.py -l perl --src-dir=$(top_srcdir)/lasso/ $(EXTRA_ARGS)
diff --git a/bindings/perl/glist_handling.c b/bindings/perl/glist_handling.c
index 4cb09740..5ce1aea9 100644
--- a/bindings/perl/glist_handling.c
+++ b/bindings/perl/glist_handling.c
@@ -68,15 +68,16 @@ xmlnode_to_pv(xmlNode *node, gboolean do_free)
 
 static xmlNode *
 pv_to_xmlnode(SV *value) {
-	int size;
+	unsigned int size;
+	char *string;
 
 	if (! SvPOK(value))
 		return NULL;
-	string = SvPV(value, len);
+	string = SvPV(value, size);
 	if (! string)
 		return NULL;
 
-	return lasso_string_fragment_to_xmlnode(string, len);
+	return lasso_string_fragment_to_xmlnode(string, size);
 }
 
 /**