http://qs321.pair.com?node_id=622235


in reply to seek function always returns true

See eof:
open(my $fh, '>', 'f00') or die $!; seek($fh, 100, 0) or die "seek:$!"; print "eof!" if eof($fh); close($fh);

cp
----
"Never be afraid to try something new. Remember, amateurs built the ark. Professionals built the Titanic."