read.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
# $RCSfile$
chdir 't' if -d 't';
}
eval 'use Errno';
print A "_";
my $b = "abcd";
$b = "";
read(A,$b,1,4);
is($b,"\000\000\000\000_");
# otherwise probably "\000bcd_"
$! = 0;
read(B,$b,1);
}