diff options
author | Karl Williamson <khw@cpan.org> | 2020-08-19 18:12:45 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-08-19 18:44:43 -0600 |
commit | 47cbe89dba2729d3b35c39be7cdba0a97fd6d98f (patch) | |
tree | 8105be320f2c5811b474159f2b21e9f7123741d6 | |
parent | f4568031855fe70374338c13fcab0390731a06e7 (diff) | |
download | perl-47cbe89dba2729d3b35c39be7cdba0a97fd6d98f.tar.gz |
mro.xs: Convert to use av_count()
-rw-r--r-- | ext/mro/mro.pm | 2 | ||||
-rw-r--r-- | ext/mro/mro.xs | 2 |
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)); } |