diff options
| author | Karl Williamson <public@khwilliamson.com> | 2014-02-20 10:28:58 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2014-02-20 11:47:05 -0700 |
| commit | b9f2b68390014b991c227e8c56d3e813584245b9 (patch) | |
| tree | cda819a22dfe1ff503439d761b579ba313a4754c /perl.c | |
| parent | 78ae08632cb098bf2ca76b516ad9ac6d22705ae7 (diff) | |
| download | perl-b9f2b68390014b991c227e8c56d3e813584245b9.tar.gz | |
Change av_len calls to av_tindex for clarity
av_tindex is a more clearly named synonym for av_len, available starting
in v5.18. This changes the core uses to it, including modules in /ext,
which are not dual-lifed.
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4745,7 +4745,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_len(av) + 1; + Size_t extra = av_tindex(av) + 1; #endif av_unshift(inc, extra + push_basedir); if (push_basedir) @@ -4832,7 +4832,7 @@ Perl_call_list(pTHX_ I32 oldscope, AV *paramList) PERL_ARGS_ASSERT_CALL_LIST; - while (av_len(paramList) >= 0) { + while (av_tindex(paramList) >= 0) { cv = MUTABLE_CV(av_shift(paramList)); if (PL_savebegin) { if (paramList == PL_beginav) { |