From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 14 Jan 2003 12:40:24 +0000 (+0000)
Subject: Apparently some stdios have bugs (no! don't tell it is so!)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c6b468669ccdb9d00657bf19b6aedb2a9fa88ca7;p=p5sagit%2Fp5-mst-13.2.git

Apparently some stdios have bugs (no! don't tell it is so!)
or there is a corner of stdio that is substandardised.

p4raw-id: //depot/perl@18481
---

diff --git a/t/io/tell.t b/t/io/tell.t
index b3065d3..9aa39e8 100755
--- a/t/io/tell.t
+++ b/t/io/tell.t
@@ -136,7 +136,9 @@ if (tell($tst) == 5) { print "ok 30\n"; } else { print "not ok 30\n"; }
 
 print $tst "xxxx\n";
 
-if (tell($tst) == 15) { print "ok 27\n"; } else { print "not ok 27\n"; }
+if (tell($tst) == 15 ||
+    tell($tst) == 5) # unset PERLIO or PERLIO=stdio (e.g. HP-UX, Solaris)
+{ print "ok 27\n"; } else { print "not ok 27\n"; }
 
 close($tst);