2008-01-30 18:45:00 +00:00
|
|
|
diff -up perl-5.10.0/t/io/fs.t.BAD perl-5.10.0/t/io/fs.t
|
|
|
|
--- perl-5.10.0/t/io/fs.t.BAD 2008-01-30 13:36:43.000000000 -0500
|
|
|
|
+++ perl-5.10.0/t/io/fs.t 2008-01-30 13:41:27.000000000 -0500
|
|
|
|
@@ -227,7 +227,7 @@ isnt($atime, 500000000, 'atime');
|
|
|
|
isnt($mtime, 500000000 + $delta, 'mtime');
|
|
|
|
|
|
|
|
SKIP: {
|
2015-06-02 11:07:02 +00:00
|
|
|
- skip "no futimes", 6 unless ($Config{d_futimes} || "") eq "define";
|
|
|
|
+ skip "no futimes", 6;
|
2008-01-30 18:45:00 +00:00
|
|
|
open(my $fh, "<", 'b');
|
|
|
|
$foo = (utime 500000000,500000000 + $delta, $fh);
|
|
|
|
is($foo, 1, "futime");
|