[MacPerl] Problems with seek()?

[Aaron Munter <amunter@telnetgw.salkeiz.k12.or.us>]

I have a routine that works great under perl for NT, Linux, and others,
but doesn't seem to work with MacPerl.  It involves seek:

open(IN, "testfile") || die "Couldn't open testfile: $!\n";
$gotit = seek(IN, 20,0);
if($gotit) {
  print "It's at least 20 characters..\n";
} else {
  print "Could not go there.\n";
}
close(IN);

..that is not the actual routine, but it summarizes the problem in a
snippet.  Regardless of the length of testfile, I get "Could not go
there".  Does MacPerl not handle seek() correctly?  Or do *I* not handle
seek() correctly? 8-)

-Aaron Munter
Technology Development Coordinator (TechDevCoord for short)
Salem-Keizer Public Schools, Salem, Oregon, USA


***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch