| … | … | ||
|---|---|---|---|
| 73 | #pop @FD_INUSE while @FD_INUSE && !$FD_INUSE[-1]; | 73 | #pop @FD_INUSE while @FD_INUSE && !$FD_INUSE[-1]; |
| 74 | ($FD_I = @FD_INUSE) >= 0 | 74 | ($FD_I = @FD_INUSE) >= 0 |
| 75 | or return; # empty | 75 | or return; # empty |
| 76 | } | 76 | } |
| 77 | 77 | ||
| 78 | $cnt = $FD_I + 1 if $cnt > $FD_I; | 78 | $cnt = $FD_I if $cnt > $FD_I; |
| 79 | 79 | ||
| 80 | eval { | 80 | eval { |
| 81 | do { | 81 | do { |
| 82 | !$FD_INUSE[--$FD_I] | 82 | !$FD_INUSE[--$FD_I] |
| 83 | or (POSIX::lseek $FD_I, 0, 1) != -1 | 83 | or (POSIX::lseek $FD_I, 0, 1) != -1 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |