From: mike <mike>
Date: Tue, 6 Dec 2005 23:15:56 +0000 (+0000)
Subject: Changed sign of (unused) `len' argument to SvPV()
X-Git-Tag: cpan_1_22~339
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=cf038f4c5128dbdf20f8b1093839259e8f620ddc;p=ZOOM-Perl-moved-to-github.git

Changed sign of (unused) `len' argument to SvPV()
-- I think the newer Perl distribution of Ubuntu 5.10 has changed this.
---

diff --git a/typemap b/typemap
index 85ae80d..d0f7e0b 100644
--- a/typemap
+++ b/typemap
@@ -1,4 +1,4 @@
-# $Id: typemap,v 1.5 2005-10-17 13:48:08 mike Exp $
+# $Id: typemap,v 1.6 2005-12-06 23:15:56 mike Exp $
 
 ZOOM_connection					T_PTROBJ
 ZOOM_connection *				T_PTROBJ
@@ -67,8 +67,8 @@ T_OPAQUE_STRUCT
 	else
 	    croak(\"$var is not of type ${ntype}\")
 T_OPAQUECHAR
-	int _unused_len;
-	$var = ($type) SvPV($arg, _unused_len);
+	{ unsigned _unused_len;
+	$var = ($type) SvPV($arg, _unused_len); }
 
 #############################################################################
 OUTPUT