diff options
author | David Mitchell <davem@iabyn.com> | 2019-10-03 14:13:14 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2019-10-03 14:24:19 +0100 |
commit | 7d769928d688d1662c7e4bda7038ebdc70c42bad (patch) | |
tree | 9e1179e6be2be2af11e528ec6b43aee413eac33d /pp.c | |
parent | 944ff78754da53b01432e183fc56d9a559614115 (diff) | |
download | perl-7d769928d688d1662c7e4bda7038ebdc70c42bad.tar.gz |
fix some signed/unsigned warnings
Note that utf8_distance returns IV, while STR_LEN is an unsigned value
of varying sizes.
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -7123,11 +7123,11 @@ PP(pp_argcheck) UV opt_params = aux->opt_params; char slurpy = aux->slurpy; AV *defav = GvAV(PL_defgv); /* @_ */ - IV argc; + UV argc; bool too_few; assert(!SvMAGICAL(defav)); - argc = (AvFILLp(defav) + 1); + argc = (UV)(AvFILLp(defav) + 1); too_few = (argc < (params - opt_params)); if (UNLIKELY(too_few || (!slurpy && argc > params))) |