scott@grlab.UUCP (Scott Blachowicz) (06/04/90)
Hi-
I just loaded up perl (for the first time). It fails the test
'op.read' on our HP9000/375 running HP-UX v7.0. It seems that the
'seek' to 20000 succeeds. I don't really know why. I can do
'@ary = <FOO>' to have to whole file sucked in, and that works fine.
Is this some "feature" of HP-UX that I've seeing exhibited? Should I
really care about this failure? Here is my op.read (with some
debugging prints):
#!./perl
# $Header: op.read,v 3.0 89/10/18 15:30:58 lwall Locked $
print "1..4\n";
open(FOO,'op.read') || open(FOO,'t/op.read') || die "Can't open op.read";
seek(FOO,4,0);
$got = read(FOO,$buf,4);
print ($got == 4 ? "ok 1\n" : "not ok 1\n");
print ($buf eq "perl" ? "ok 2\n" : "not ok 2 :$buf:\n");
seek(FOO,20000,0) ? print ("# Seek succeeded.\n") : print ("# Seek failed ", $?, "\n");
print ("# Eof = ", eof(FOO) ? "TRUE\n" : "FALSE\n");
print ("# Tell = ", tell(FOO), "\n");
$got = read(FOO,$buf,4);
print (($? == 0) ? "# Read succeeded.\n" : "# Read failed.\n");
print ("# Eof = ", eof(FOO) ? "TRUE\n" : "FALSE\n");
print ("# Tell = ", tell(FOO), "\n");
print ($got == 0 ? "ok 3\n" : "not ok 3\n");
print ($buf eq "" ? "ok 4\n" : "not ok 4\n");
print ("# ", $got, " >", $buf, "<\n");
...and here is the output I get:
1..4
ok 1
ok 2
# Seek succeeded.
# Eof = FALSE
# Tell = 20000
# Read succeeded.
# Eof = FALSE
# Tell = 20004
not ok 3
not ok 4
# 4 >
Any and all information appreciated...
--
Scott Blachowicz E-mail: scott@grlab.UUCP
USPS: Graphicus ..or.. ...!hpubvwa!grlab!scott
150 Lake Str S, #206 VoicePh: 206/828-4691
Kirkland, WA USA 98033 FAX: 206/828-4236ken@sdd.hp.com (Ken Stone) (06/06/90)
In article <SCOTT.90Jun4112437@gr375.grlab.UUCP> scott@grlab.UUCP (Scott Blachowicz) writes: > I just loaded up perl (for the first time). It fails the test >'op.read' on our HP9000/375 running HP-UX v7.0. It seems that the >'seek' to 20000 succeeds. I don't really know why. I can do Are you trying to build on an NFS mounted file system ? If so, then just ignore the failure. You can copy the test stuff to /tmp and it will work just fine. Just a little "anomaly" in NFS ... :-) -- Ken