From 102356aa7a9d5f0d80a7c170bf35a6768b7f8769 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 19 Aug 2020 18:15:09 -0600 Subject: os2.c: Convert to use av_count() --- os2/os2.c | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'os2') diff --git a/os2/os2.c b/os2/os2.c index 68f14ff169..3e2bd1b31b 100644 --- a/os2/os2.c +++ b/os2/os2.c @@ -2025,8 +2025,8 @@ mod2fname(pTHX_ SV *sv) if (SvTYPE(sv) != SVt_PVAV) Perl_croak_nocontext("Not array reference given to mod2fname"); - avlen = av_tindex((AV*)sv); - if (avlen < 0) + avlen = av_count((AV*)sv); + if (avlen == 0) Perl_croak_nocontext("Empty array reference given to mod2fname"); s = SvPV(*av_fetch((AV*)sv, avlen, FALSE), n_a); @@ -2037,8 +2037,7 @@ mod2fname(pTHX_ SV *sv) sum = 33 * sum + *(s++); /* Checksumming first chars to * get the capitalization into c.s. */ } - avlen --; - while (avlen >= 0) { + while (avlen > 0) { s = SvPV(*av_fetch((AV*)sv, avlen, FALSE), n_a); while (*s) { sum = 33 * sum + *(s++); /* 7 is primitive mod 13. */ -- cgit v1.2.1