diff options
author | Karl Williamson <khw@cpan.org> | 2020-08-19 14:07:06 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-08-19 16:12:19 -0600 |
commit | 698ac381136cf42e309f3e28a80ead6e29c77d45 (patch) | |
tree | db6303c4a4af07fb1d3718c119556efa4b2a77e2 | |
parent | 563e8cf49e450f777ecf7c3d1e063da39f8c69f6 (diff) | |
download | perl-698ac381136cf42e309f3e28a80ead6e29c77d45.tar.gz |
doio.c: Convert to use av_count()
-rw-r--r-- | doio.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1312,7 +1312,7 @@ Perl_nextargv(pTHX_ GV *gv, bool nomagicopen) PL_filemode = 0; if (!GvAV(gv)) return NULL; - while (av_tindex(GvAV(gv)) >= 0) { + while (av_count(GvAV(gv)) > 0) { STRLEN oldlen; SV *const sv = av_shift(GvAV(gv)); SAVEFREESV(sv); |