summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-02-24 23:15:56 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-02-24 23:15:56 +0000
commit8d220878d77900dc1beb088892237bda615b1719 (patch)
tree2f6de85a4b5caeed8aea3c330354e17812e8750c /t
parent237671e544fe54ad7ff79d35f6685fe38cccc4d0 (diff)
downloadperl-8d220878d77900dc1beb088892237bda615b1719.tar.gz
The op/stat.t patch in #5341 wasn't robust enough,
it broke subtest 4 almost everywhere else. p4raw-id: //depot/cfgperl@5246
Diffstat (limited to 't')
-rwxr-xr-xt/op/stat.t10
1 files changed, 8 insertions, 2 deletions
diff --git a/t/op/stat.t b/t/op/stat.t
index 9c76e8b46b..af4920cd43 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -39,10 +39,15 @@ if (open(FOO, ">Op.stat.tmp")) {
print "# |$mtime| vs |$ctime|\nnot ok 2\n";
}
- sleep 3;
+ my $funky_FAT_timestamps = $Is_Cygwin;
+
+ sleep 3 if $funky_FAT_timestamps;
+
print FOO "Now is the time for all good men to come to.\n";
close(FOO);
+ sleep 2 unless $funky_FAT_timestamps;
+
} else {
print "# open failed: $!\nnot ok 1\nnot ok 2\n";
}
@@ -62,7 +67,8 @@ elsif ($nlink == 2)
else {print "# \$nlink is |$nlink|\nnot ok 3\n";}
if ( $Is_Dosish
- || ($cwd =~ m#^/tmp# and $mtime && $mtime==$ctime) # Solaris tmpfs bug
+ # Solaris tmpfs bug
+ || ($cwd =~ m#^/tmp# and $mtime && $mtime==$ctime && $^O eq 'solaris')
|| $cwd =~ m#/afs/#
|| $^O eq 'amigaos') {
print "ok 4 # skipped: different semantic of mtime/ctime\n";