In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/622584734f799751a284558aaebad21acd3270bf?hp=45bbc013ffb5816b9483592845928fa0efc8f0ff>
- Log ----------------------------------------------------------------- commit 622584734f799751a284558aaebad21acd3270bf Author: Tony Cook <[email protected]> Date: Tue Nov 15 14:42:52 2016 +1100 Revert "Do not try to fchown() to uid -1 and gid -1." This reverts commit c4f643b9fca4c4487ef74e4e6cd5b61a26025698, which fixed a failure introduced by commit f95ba548a286b17c260cc168715a9d0d441b14a6 which was reverted in dd1dbff095629118e73a48a2a6008f03418a07f6. (uid_t)(-1) and (gid_t)(-1) are perfectly valid parameters to chown()/fchown() back to POSIX.1-2001 at least. ----------------------------------------------------------------------- Summary of changes: t/io/fs.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/io/fs.t b/t/io/fs.t index 5ed2053..b6754d6 100644 --- a/t/io/fs.t +++ b/t/io/fs.t @@ -211,14 +211,14 @@ SKIP: { SKIP: { skip "no fchown", 3 unless ($Config{d_fchown} || "") eq "define"; open(my $fh, "<", "a"); - is(chown($<, $(, $fh), 1, "fchown"); + is(chown(-1, -1, $fh), 1, "fchown"); # [perl #122703] # chown() behaved correctly, but there was no test for the chown() # on closed handle case close $fh; $! = 0; - ok(!chown($<, $(, $fh), "chown on closed handle fails"); + ok(!chown(-1, -1, $fh), "chown on closed handle fails"); isnt($!+0, 0, "and errno was set"); } -- Perl5 Master Repository
