From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 6 Jan 2006 18:29:57 +0000 (+0000)
Subject: Negating an unsigned value generates warnings for some compilers, so
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=66ccb71661623abcbd6f029b84aa5a6eac24403f;p=p5sagit%2Fp5-mst-13.2.git

Negating an unsigned value generates warnings for some compilers, so
cast it first.

p4raw-id: //depot/perl@26679
---

diff --git a/lib/ExtUtils/Constant/ProxySubs.pm b/lib/ExtUtils/Constant/ProxySubs.pm
index 57beb54..2df31b9 100644
--- a/lib/ExtUtils/Constant/ProxySubs.pm
+++ b/lib/ExtUtils/Constant/ProxySubs.pm
@@ -453,7 +453,7 @@ $xs_subname(sv)
 	SV *		sv;
         const char *	s = SvPV(sv, len);
     PPCODE:
-	if (hv_exists(${c_subname}_missing, s, SvUTF8(sv) ? -len : len)) {
+	if (hv_exists(${c_subname}_missing, s, SvUTF8(sv) ? -(I32)len : len)) {
 	    sv = newSVpvf("Your vendor has not defined $package_sprintf_safe macro %" SVf
 			  ", used", sv);
 	} else {