diff options
Diffstat (limited to 't/io/tell.t')
| -rwxr-xr-x | t/io/tell.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/io/tell.t b/t/io/tell.t index b3065d3002..9aa39e842f 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); |