diff options
author | Karl Williamson <khw@cpan.org> | 2020-08-19 19:06:01 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-08-19 19:11:45 -0600 |
commit | 8272d5bdfa99b9fd92be2d34da4d04eec4c6ddab (patch) | |
tree | a4ec9589fd9da1702b3c237aadd03a0b84cfede9 /pp_hot.c | |
parent | a35255b755271d430494f12ae140641aeb8a1777 (diff) | |
download | perl-8272d5bdfa99b9fd92be2d34da4d04eec4c6ddab.tar.gz |
Use av_top_index() instead of av_tindex()
I was never happy with this short form, and other people weren't either.
Now that most things are better expressed in terms of av_count, convert
the few remaining items that are clearer when referring to an index into
using the fully spelled out form
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3640,7 +3640,7 @@ PP(pp_multideref) IV len; if (!defer) DIE(aTHX_ PL_no_aelem, elem); - len = av_tindex(av); + len = av_top_index(av); /* Resolve a negative index that falls within * the array. Leave it negative it if falls * outside the array. */ @@ -5392,7 +5392,7 @@ PP(pp_aelem) IV len; if (!defer) DIE(aTHX_ PL_no_aelem, elem); - len = av_tindex(av); + len = av_top_index(av); /* Resolve a negative index that falls within the array. Leave it negative it if falls outside the array. */ if (elem < 0 && len + elem >= 0) |