Make % use fmod()

[p5sagit/p5-mst-13.2.git] / t / op / stat.t

diff --git a/t/op/stat.t b/t/op/stat.t
index 6a5776d..6f2d00b 100755 (executable)
--- 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";}