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 (file)
--- 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 {