> On Sun, Nov 03, 2019 at 10:53:00PM -0500, Tom Lane wrote: > > That is, TestLib::slurp_file is failing to read a file. Almost > > certainly, "permission denied" doesn't really mean a permissions > > problem, but failure to specify the file-opening flags needed to > > allow concurrent access on Windows. We fixed this in pg_ctl > > itself in commit 0ba06e0bf ... but we didn't fix the TAP > > infrastructure. Is there an easy way to get Perl on board > > with that? > > If we were to use Win32API::File so as the file is opened in shared > mode, we would do the same as what our frontend/backend code does (see > $uShare): > https://metacpan.org/pod/Win32API::File
Compatibility-wise, that should be okay, since that module appears to have been distributed with Perl core early on.
Please find attached a patch that adds the FILE_SHARE options to TestLib::slurp_file using Win32API::File.
