summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2019-10-03 14:13:14 +0100
committerDavid Mitchell <davem@iabyn.com>2019-10-03 14:24:19 +0100
commit7d769928d688d1662c7e4bda7038ebdc70c42bad (patch)
tree9e1179e6be2be2af11e528ec6b43aee413eac33d /pp.c
parent944ff78754da53b01432e183fc56d9a559614115 (diff)
downloadperl-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.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp.c b/pp.c
index 062d0f2e37..d9a7cc3d09 100644
--- a/pp.c
+++ b/pp.c
@@ -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)))