From: G. Del Merritt <del@intranetics.com>
Date: Tue, 26 Jan 1999 12:09:09 +0000 (-0700)
Subject: io/fs.t fails test #18.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5faf16a341563d36a0c237bb69e36d0ede8f2b49;p=p5sagit%2Fp5-mst-13.2.git

io/fs.t fails test #18.
To: perlbug@perl.com
Subject: NOT OK: perl 5.00503 +MAINT_TRIAL_4 on MSWin32-x86-object (PATCHES included)
Message-Id: <199901261909.MAA25525@jhereg.perl.com>

didn't apply cleanly because test #17 is not similar, applied manually

p4raw-id: //depot/cfgperl@2772
---

diff --git a/t/io/fs.t b/t/io/fs.t
index c15f772..4b3b14c 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' || $^O eq 'dos')
+if ($wd =~ m#/afs/# || $^O eq 'amigaos' || $^O eq 'dos' || $^O eq 'MSWin32')
     {print "ok 18 # skipped: granularity of the filetime\n";}
 elsif ($atime == 500000000 && $mtime == 500000000 + $delta)
     {print "ok 18\n";}