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 (executable)
--- 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";}