In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/0bb6ccda976992dbfb1998af5f6aea18e9dccec2?hp=14c8eaf861cb4863a59c3d58f1b6d1d6f48def1c>
- Log ----------------------------------------------------------------- commit 0bb6ccda976992dbfb1998af5f6aea18e9dccec2 Author: Craig A. Berry <[email protected]> Date: Tue Dec 16 21:09:40 2014 -0600 VMS does have fsync, so configure accordingly. And has had since roughly the beginning of time, and has even been using it since right around then in vms/vms.c. But it doesn't work on read-only filehandles, so skip the test that expects that. ----------------------------------------------------------------------- Summary of changes: configure.com | 2 +- dist/IO/t/io_xs.t | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/configure.com b/configure.com index da47e65..f4dbab3 100644 --- a/configure.com +++ b/configure.com @@ -6079,7 +6079,7 @@ $ WC "d_fseeko='" + d_fseeko + "'" $ WC "d_fsetpos='define'" $ WC "d_fstatfs='undef'" $ WC "d_fstatvfs='" + d_fstatvfs + "'" -$ WC "d_fsync='undef'" +$ WC "d_fsync='define'" $ WC "d_ftello='" + d_ftello + "'" $ WC "d_ftime='define'" $ WC "d_futimes='undef'" diff --git a/dist/IO/t/io_xs.t b/dist/IO/t/io_xs.t index ffd225b..f7d7258 100644 --- a/dist/IO/t/io_xs.t +++ b/dist/IO/t/io_xs.t @@ -43,6 +43,8 @@ SKIP: and skip "fsync() documented to fail on non-writable handles on $^O", 1; $^O eq 'cygwin' and skip "fsync() on cygwin uses FlushFileBuffers which requires a writable handle", 1; + $^O eq 'VMS' + and skip "fsync() not allowed on a read-only handle on $^O", 1; open my $fh, "<", "t/io_xs.t" or skip "Cannot open t/io_xs.t read-only: $!", 1; ok($fh->sync, "sync to a read only handle") -- Perl5 Master Repository
