On 2016-03-22 23:29:04, plaksin@vsmpo.ru wrote:
Show quoted text> Hi.
> Simple code
>
> ------------------------------
> open(F,"test.bin"); binmode F;
> sysread(F,$byte,1);
> print tell F;
> close F;
> ------------------------------
>
> always returns 0.
This is not an issue with strawberry, but with every perl. And the behavior is kinda documented. "perldoc -f sysread" says:
It bypasses
buffered IO, so mixing this with other kinds of reads, "print",
"write", "seek", "tell", or "eof" can cause confusion because
the perlio or stdio layers usually buffers data.
"perldoc -f sysseek" suggests how to implement a systell function.
I suggest to close this ticket.