This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Rhapsody change assumed too much.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 17 Mar 1999 14:52:17 +0000 (14:52 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 17 Mar 1999 14:52:17 +0000 (14:52 +0000)
p4raw-id: //depot/cfgperl@3120

t/op/stat.t

index 6a5776d..6f2d00b 100755 (executable)
@@ -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";}