diff options
author | Karl Williamson <khw@cpan.org> | 2020-08-19 14:55:17 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-08-19 16:12:19 -0600 |
commit | d4371c8e432b4efc22914aef93dc3d8d5d8f2a1e (patch) | |
tree | b83942275060560486d8784120923221786c9aeb | |
parent | afcaaea8937b52238226f235c6ab5446696fc45e (diff) | |
download | perl-d4371c8e432b4efc22914aef93dc3d8d5d8f2a1e.tar.gz |
universal.c: Convert to use av_count()
-rw-r--r-- | universal.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/universal.c b/universal.c index 3bba77da18..9b032bdfaf 100644 --- a/universal.c +++ b/universal.c @@ -956,10 +956,10 @@ XS(XS_re_regnames) XSRETURN_UNDEF; av = MUTABLE_AV(SvRV(ret)); - length = av_tindex(av); + length = av_count(av); - EXTEND(SP, length+1); /* better extend stack just once */ - for (i = 0; i <= length; i++) { + EXTEND(SP, length); /* better extend stack just once */ + for (i = 0; i < length; i++) { entry = av_fetch(av, i, FALSE); if (!entry) |