X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=typemap;h=2523a376c83c6279b0838eec8046ce30b5be32f9;hb=7f28788ed9c05eefeaa16bed3b1074dda9e699d2;hp=d0f7e0be974c04ac493ba24dba76a32f6c295822;hpb=cf038f4c5128dbdf20f8b1093839259e8f620ddc;p=ZOOM-Perl-moved-to-github.git

diff --git a/typemap b/typemap
index d0f7e0b..2523a37 100644
--- a/typemap
+++ b/typemap
@@ -1,4 +1,4 @@
-# $Id: typemap,v 1.6 2005-12-06 23:15:56 mike Exp $
+# $Id: typemap,v 1.8 2007-10-29 11:50:49 mike Exp $
 
 ZOOM_connection					T_PTROBJ
 ZOOM_connection *				T_PTROBJ
@@ -52,7 +52,7 @@ void ( * __func ) ( int __status, void * __arg )	T_PTROBJ
 void ( * __func ) ( void )			T_PTROBJ
 void **						T_PTROBJ
 struct datachunk				T_DATACHUNK
-#############################################################################
+# ---------------------------------------------------------------------------
 INPUT
 T_OPAQUE_STRUCT
 	if (sv_derived_from($arg, \"${ntype}\")) {
@@ -67,10 +67,10 @@ T_OPAQUE_STRUCT
 	else
 	    croak(\"$var is not of type ${ntype}\")
 T_OPAQUECHAR
-	{ unsigned _unused_len;
+	{ STRLEN _unused_len;
 	$var = ($type) SvPV($arg, _unused_len); }
 
-#############################################################################
+# ---------------------------------------------------------------------------
 OUTPUT
 T_OPAQUE_STRUCT
 	sv_setref_pvn($arg, \"${ntype}\", (char *)&$var, sizeof($var));