From: Laszlo Molnar <laszlo.molnar@eth.ericsson.se>
Date: Sun, 9 Aug 1998 22:38:23 +0000 (+0200)
Subject: dos-djgpp update
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=891521e23d0fd29798c6e514fa885783f0b6a6ad;p=p5sagit%2Fp5-mst-13.2.git

dos-djgpp update

	Message-ID: <19980809223823.A215@cdata.tvnet.hu>

p4raw-id: //depot/perl@1804
---

diff --git a/t/io/fs.t b/t/io/fs.t
index 164a667..a532be2 100755
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -99,7 +99,7 @@ if ($foo == 1) {print "ok 16\n";} else {print "not ok 16 $foo\n";}
 ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
     $blksize,$blocks) = stat('b');
 if ($ino) {print "ok 17\n";} else {print "not ok 17\n";}
-if ($wd =~ m#/afs/# || $^O eq 'amigaos')
+if ($wd =~ m#/afs/# || $^O eq 'amigaos' || $^O eq 'dos')
     {print "ok 18 # skipped: granularity of the filetime\n";}
 elsif ($atime == 500000000 && $mtime == 500000000 + $delta)
     {print "ok 18\n";}