utf8.c: "<" should be "<="

av_len() is misnamed, and hence led me earlier to stop the loop
one shy of what it should have been.  No actual bugs were caused by
this, but it could cause a duplicate entry in an array, which is
searched linearly, hence a slight slowdown.

diff --git a/utf8.c b/utf8.c
index 11c2fa4..371db53 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -2702,7 +2702,7 @@ Perl__swash_inversion_hash(pTHX_ SV* const swash)
                }
            }
 
-           for (i = 0; i < av_len(list); i++) {
+           for (i = 0; i <= av_len(list); i++) {
                SV** entryp = av_fetch(list, i, FALSE);
                SV* entry;
                if (entryp == NULL) {