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 (executable)
--- 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);