diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-02-24 23:15:56 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-02-24 23:15:56 +0000 |
commit | 8d220878d77900dc1beb088892237bda615b1719 (patch) | |
tree | 2f6de85a4b5caeed8aea3c330354e17812e8750c /t | |
parent | 237671e544fe54ad7ff79d35f6685fe38cccc4d0 (diff) | |
download | perl-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-x | t/op/stat.t | 10 |
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"; |