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 /universal.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 'universal.c')
| -rw-r--r-- | universal.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/universal.c b/universal.c index ad5b5040d6..bccc8fb45a 100644 --- a/universal.c +++ b/universal.c @@ -722,7 +722,7 @@ XS(XS_PerlIO_get_layers) AV* const av = PerlIO_get_layers(aTHX_ input ? IoIFP(io) : IoOFP(io)); SSize_t i; - const SSize_t last = av_len(av); + const SSize_t last = av_tindex(av); SSize_t nitem = 0; for (i = last; i >= 0; i -= 3) { @@ -898,7 +898,7 @@ XS(XS_re_regnames) XSRETURN_UNDEF; av = MUTABLE_AV(SvRV(ret)); - length = av_len(av); + length = av_tindex(av); EXTEND(SP, length+1); /* better extend stack just once */ for (i = 0; i <= length; i++) { |