diff options
author | Karl Williamson <khw@cpan.org> | 2020-08-19 14:03:55 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-08-19 16:12:19 -0600 |
commit | 563e8cf49e450f777ecf7c3d1e063da39f8c69f6 (patch) | |
tree | f9b785d22c24b2c335a5826b99b74cf0f93bbe94 /pp_hot.c | |
parent | 87306e0674dfe3af29804b4641347cd5ac9b0521 (diff) | |
download | perl-563e8cf49e450f777ecf7c3d1e063da39f8c69f6.tar.gz |
pp_hot.c: Convert to use av_count()
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3181,7 +3181,7 @@ Perl_do_readline(pTHX) if (IoFLAGS(io) & IOf_ARGV) { if (IoFLAGS(io) & IOf_START) { IoLINES(io) = 0; - if (av_tindex(GvAVn(PL_last_in_gv)) < 0) { + if (av_count(GvAVn(PL_last_in_gv)) == 0) { IoFLAGS(io) &= ~IOf_START; do_open6(PL_last_in_gv, "-", 1, NULL, NULL, 0); SvTAINTED_off(GvSVn(PL_last_in_gv)); /* previous tainting irrelevant */ |