perl/perl-5.10.0-x86_64-io-test-failure.patch

13 lines
518 B
Diff
Raw Normal View History

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
2019-05-30 06:30:30 +00:00
@@ -257,7 +257,7 @@ isnt($atime, 500000000, 'atime');
isnt($mtime, $ut + $delta, 'mtime: utime called with two undefs');
SKIP: {
2015-06-02 11:07:02 +00:00
- skip "no futimes", 6 unless ($Config{d_futimes} || "") eq "define";
+ skip "no futimes", 6;
2019-05-30 06:30:30 +00:00
note("check futimes");
open(my $fh, "<", 'b');
2019-05-30 06:30:30 +00:00
$foo = (utime $ut,$ut + $delta, $fh);