diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-01-06 18:29:57 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-01-06 18:29:57 +0000 |
| commit | 66ccb71661623abcbd6f029b84aa5a6eac24403f (patch) | |
| tree | 058da691da58db9f2483bd615ca1261a0814702e /lib/ExtUtils | |
| parent | c8e8edb2625f7d67845ee0f7335a8f8f29fee231 (diff) | |
| download | perl-66ccb71661623abcbd6f029b84aa5a6eac24403f.tar.gz | |
Negating an unsigned value generates warnings for some compilers, so
cast it first.
p4raw-id: //depot/perl@26679
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/Constant/ProxySubs.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ExtUtils/Constant/ProxySubs.pm b/lib/ExtUtils/Constant/ProxySubs.pm index 57beb545c1..2df31b9198 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 { |