[perl5] Use sv_setpvn() to set a scalar from a pointer and length

- patch from SF#174460 by "matsubaray". git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@9937 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2007-09-17 23:24:11 +00:00 · 2007-09-17 23:24:11 +00:00 · e2d7f303b8
commit e2d7f303b8
parent c836c81acb
6 changed files with 28 additions and 13 deletions
--- a/Examples/test-suite/li_cdata_carrays.i
+++ b/Examples/test-suite/li_cdata_carrays.i
@ -0,0 +1,8 @@
+%module li_cdata_carrays
+
+%include <carrays.i>
+%array_class(int, intArray);
+
+%include <cdata.i>
+
+%cdata(int);