Re: [perl #33962] readline returns one too many lines

[Leopold Toetsch]

Matt Diephouse <[EMAIL PROTECTED]> wrote:

> The readline opcode returns too many lines. Compare the following pir
> with `wc -l`.

>      unless file goto END
>      $S0 = readline file

It needs (currently) a test for an empty string:

   unless $S0 goto END

I didn't look at the code, if EOF is set correctly.

leo