entrouvert
/
lasso
16
0
Fork 0
Code Issues Pull Requests Releases Activity

[Perl binding] make include from $(srcdir) works in Perl binding

This commit is contained in:
Benjamin Dauvergne 2010-06-29 14:49:15 +00:00
parent 3534792285
commit 11ac1e148a
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bindings/perl/Makefile.am
View File

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

7
bindings/perl/glist_handling.c
View File

@ -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);
}
/**