diff options
| author | Karl Williamson <khw@cpan.org> | 2019-03-27 21:22:59 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-04-20 00:33:19 -0600 |
| commit | b2b47eff19267d71facbe007ec203dfeeee4a5c5 (patch) | |
| tree | a5069c97262dfaa77c2a4053a78d01e80647b089 /ext | |
| parent | 94250c4fc8bd70e90985c18c6eeb4257b56420e9 (diff) | |
| download | perl-b2b47eff19267d71facbe007ec203dfeeee4a5c5.tar.gz | |
POSIX.xs: Use new inRANGE macro
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/POSIX/POSIX.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 2972c6d91d..5b9bbc429b 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -3437,7 +3437,7 @@ strtol(str, base = 0) long num; char *unparsed; PPCODE: - if (base == 0 || (base >= 2 && base <= 36)) { + if (base == 0 || inRANGE(base, 2, 36)) { num = strtol(str, &unparsed, base); #if IVSIZE < LONGSIZE if (num < IV_MIN || num > IV_MAX) @@ -3471,7 +3471,7 @@ strtoul(str, base = 0) PPCODE: PERL_UNUSED_VAR(str); PERL_UNUSED_VAR(base); - if (base == 0 || (base >= 2 && base <= 36)) { + if (base == 0 || inRANGE(base, 2, 36)) { num = strtoul(str, &unparsed, base); #if IVSIZE <= LONGSIZE if (num > IV_MAX) |