X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/154e47c821a043f6b3b7346ca0c21e3282802f49..56e971472aeadd8c59894759279df45820a0c18d:/doio.c

diff --git a/doio.c b/doio.c
index 1fbc9a0..81abd9c 100644
--- a/doio.c
+++ b/doio.c
@@ -747,7 +747,7 @@ Perl_nextargv(pTHX_ GV *gv)
     PL_filemode = 0;
     if (!GvAV(gv))
 	return NULL;
-    while (av_len(GvAV(gv)) >= 0) {
+    while (av_tindex(GvAV(gv)) >= 0) {
 	STRLEN oldlen;
 	sv = av_shift(GvAV(gv));
 	SAVEFREESV(sv);