summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2020-08-19 18:12:45 -0600
committerKarl Williamson <khw@cpan.org>2020-08-19 18:44:43 -0600
commit47cbe89dba2729d3b35c39be7cdba0a97fd6d98f (patch)
tree8105be320f2c5811b474159f2b21e9f7123741d6
parentf4568031855fe70374338c13fcab0390731a06e7 (diff)
downloadperl-47cbe89dba2729d3b35c39be7cdba0a97fd6d98f.tar.gz
mro.xs: Convert to use av_count()
-rw-r--r--ext/mro/mro.pm2
-rw-r--r--ext/mro/mro.xs2
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/mro/mro.pm b/ext/mro/mro.pm
index d094c02080..e4eed12f2c 100644
--- a/ext/mro/mro.pm
+++ b/ext/mro/mro.pm
@@ -12,7 +12,7 @@ use warnings;
# mro.pm versions < 1.00 reserved for MRO::Compat
# for partial back-compat to 5.[68].x
-our $VERSION = '1.23';
+our $VERSION = '1.24';
require XSLoader;
XSLoader::load('mro');
diff --git a/ext/mro/mro.xs b/ext/mro/mro.xs
index 80bce9a6ad..f21216af6e 100644
--- a/ext/mro/mro.xs
+++ b/ext/mro/mro.xs
@@ -259,7 +259,7 @@ S_mro_get_linear_isa_c3(pTHX_ HV* stash, U32 level)
"Inconsistent hierarchy during C3 merge of class '%" HEKf "':\n\t"
"current merge results [\n",
HEKfARG(stashhek));
- for (i = 0; i <= av_tindex(retval); i++) {
+ for (i = 0; i < av_count(retval); i++) {
SV **elem = av_fetch(retval, i, 0);
sv_catpvf(errmsg, "\t\t%" SVf ",\n", SVfARG(*elem));
}