diff options
| author | Karl Williamson <khw@cpan.org> | 2020-08-19 14:34:19 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-08-19 16:12:19 -0600 |
| commit | de5e9b5dd74ebe2de3320fff6120804088d8b6b5 (patch) | |
| tree | fc51e7fc079640a73e1bf14f17e0a350b9dfec72 /pp_sys.c | |
| parent | ae4370caa7bb8b584eca0d31d18215c616ba75ac (diff) | |
| download | perl-de5e9b5dd74ebe2de3320fff6120804088d8b6b5.tar.gz | |
pp_sys.c: Convert to use av_count()
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2129,7 +2129,7 @@ PP(pp_eof) if (!MAXARG && (PL_op->op_flags & OPf_SPECIAL)) { /* eof() */ if (io && !IoIFP(io)) { - if ((IoFLAGS(io) & IOf_START) && av_tindex(GvAVn(gv)) < 0) { + if ((IoFLAGS(io) & IOf_START) && av_count(GvAVn(gv)) == 0) { SV ** svp; IoLINES(io) = 0; IoFLAGS(io) &= ~IOf_START; |