diff options
author | Karl Williamson <khw@cpan.org> | 2020-08-19 14:09:17 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-08-19 16:12:19 -0600 |
commit | 7235b25f6ae1b0e6a12d265509a4905841de8eed (patch) | |
tree | 31ca6331f7be3f838a65f23c6721c44a05b2c9be /perl.c | |
parent | 698ac381136cf42e309f3e28a80ead6e29c77d45 (diff) | |
download | perl-7235b25f6ae1b0e6a12d265509a4905841de8eed.tar.gz |
perl.c: Convert to use av_count()
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4988,7 +4988,7 @@ S_incpush(pTHX_ const char *const dir, STRLEN len, U32 flags) #ifdef PERL_IS_MINIPERL const Size_t extra = 0; #else - Size_t extra = av_tindex(av) + 1; + Size_t extra = av_count(av); #endif av_unshift(inc, extra + push_basedir); if (push_basedir) @@ -5074,7 +5074,7 @@ Perl_call_list(pTHX_ I32 oldscope, AV *paramList) PERL_ARGS_ASSERT_CALL_LIST; - while (av_tindex(paramList) >= 0) { + while (av_count(paramList) > 0) { cv = MUTABLE_CV(av_shift(paramList)); if (PL_savebegin) { if (paramList == PL_beginav) { |