diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-03-17 14:52:17 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-03-17 14:52:17 +0000 |
| commit | 658e8587363152015dd91659cbf7cb9a9ef3dbd9 (patch) | |
| tree | 6221121840f42ba73e1b4c365bd32fcca48221b9 /t/op/stat.t | |
| parent | 82cda36e6c3d8c295acac65ed7ca5ce50737dbff (diff) | |
| download | perl-658e8587363152015dd91659cbf7cb9a9ef3dbd9.tar.gz | |
Rhapsody change assumed too much.
p4raw-id: //depot/cfgperl@3120
Diffstat (limited to 't/op/stat.t')
| -rwxr-xr-x | t/op/stat.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index 6a5776d69c..6f2d00b7e6 100755 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -195,6 +195,9 @@ unless($ENV{PERL_SKIP_TTY_TEST}) { if (-t TTY) {print "ok 36\n";} else {print "not ok 36\n";} if (-c TTY) {print "ok 37\n";} else {print "not ok 37\n";} close(TTY); + } else { # if some platform completely undefines $TTY + print "ok 36 # skipped\n"; + print "ok 37 # skipped\n"; } } if (! -t TTY) {print "ok 38\n";} else {print "not ok 38\n";} |