This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: "<" should be "<="
[perl5.git] / utf8.c
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) {