X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=typemap;h=2523a376c83c6279b0838eec8046ce30b5be32f9;hb=af69104f7f576017b39c69a454d522733a9de6fa;hp=3ceed40a596ebbf81c72fab91b6ae7829d30c64f;hpb=226778b2845b54eb8c8df08d56e2943a4ec5577f;p=ZOOM-Perl-moved-to-github.git

diff --git a/typemap b/typemap
index 3ceed40..2523a37 100644
--- a/typemap
+++ b/typemap
@@ -1,4 +1,4 @@
-# $Id: typemap,v 1.7 2006-11-03 09:37:57 mike Exp $
+# $Id: typemap,v 1.8 2007-10-29 11:50:49 mike Exp $
 
 ZOOM_connection					T_PTROBJ
 ZOOM_connection *				T_PTROBJ
@@ -67,7 +67,7 @@ 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); }
 
 # ---------------------------------------------------------------------------