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-4236
ken@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