diff options
| author | Laszlo Molnar <laszlo.molnar@eth.ericsson.se> | 1998-08-10 00:38:23 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 03:22:22 +0000 |
| commit | 891521e23d0fd29798c6e514fa885783f0b6a6ad (patch) | |
| tree | 006a0cde415b96c3a98c447c6e4c85ed9f81fd31 | |
| parent | 8ada0baa1f731edbe470a7630cfeb30c131b4672 (diff) | |
| download | perl-891521e23d0fd29798c6e514fa885783f0b6a6ad.tar.gz | |
dos-djgpp update
Message-ID: <19980809223823.A215@cdata.tvnet.hu>
p4raw-id: //depot/perl@1804
| -rwxr-xr-x | t/io/fs.t | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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";} |