diff options
| author | Karl Williamson <khw@cpan.org> | 2019-10-02 20:58:15 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-12-26 14:02:25 -0700 |
| commit | 7682fe5fec76cd8da31a6ed2b86d7e9297e8f92f (patch) | |
| tree | 560a79c8040a28ef5a7bf4b3858358686c5476e5 /caretx.c | |
| parent | b10c836bbf5082735e1853c06ef188bc950a317b (diff) | |
| download | perl-7682fe5fec76cd8da31a6ed2b86d7e9297e8f92f.tar.gz | |
caretx.c: Use inRANGE()
This is more efficient
Diffstat (limited to 'caretx.c')
| -rw-r--r-- | caretx.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -77,7 +77,7 @@ Perl_set_caret_X(pTHX) { mib[3] = -1; if (sysctl(mib, 4, NULL, &size, NULL, 0) == 0 - && size > 0 && size < MAXPATHLEN * MAXPATHLEN) { + && inRANGE(size, 1, -1 + MAXPATHLEN * MAXPATHLEN)) { sv_grow(caret_x, size); if (sysctl(mib, 4, SvPVX(caret_x), &size, NULL, 0) == 0 |