X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fread.t;h=2746970d157dd698d5393cfba36bfc6a8d4a471d;hb=6b8eaf932222db04db65aff99717b9c1dbd0a692;hp=8c571c035bbed2ec308b4dd3fa7351c45abcc5cf;hpb=79072805bf63abe5b5978b5928ab00d360ea3e7f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/read.t b/t/op/read.t
index 8c571c0..2746970 100755
--- a/t/op/read.t
+++ b/t/op/read.t
@@ -12,7 +12,7 @@ $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);
+seek (FOO,0,2) || seek(FOO,20000,0);
 $got = read(FOO,$buf,4);
 
 print ($got == 0 ? "ok 3\n" : "not ok 3\n");