#53 sysread doesn't warn on read from WRONLY

[Chris Nandor]

This script should produce a warning, but does not:

#!perl
# pp_sys.c [pp_sysread]
use warnings 'io' ;

my $file = "./xcv" ;
open(F, ">$file") ;
my $a = sysread(F, $a,10) ;
close F ;
unlink $file ;

Note that changing sysread to read generates the appropriate
warning.

[Matthias Neeracher]

Logged In: YES
user_id=37219

I don't get a warning with either operator. Was this introduced post 5.6.0?

[Chris Nandor]

Logged In: YES
user_id=3660

I don't get a warning with either operator in 5.2.0r4, but I do get it with
read() in my current 5.6.

If you can't think of anything on this, then assign it back to me again and
I'll try to figure it out.

[Matthias Neeracher]

Logged In: YES
user_id=37219

read() on a O_WRONLY file in GUSI returns 0 (EOF) isntead of an error. Might fix this eventally.