This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Do not try to fchown() to uid -1 and gid -1.
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 7 Feb 2016 01:21:03 +0000 (20:21 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 7 Feb 2016 13:23:46 +0000 (08:23 -0500)
t/io/fs.t

index 6719a0a..fd36bf0 100644 (file)
--- 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(-1, -1, $fh), 1, "fchown");
+    is(chown($<, $(, $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(-1, -1, $fh), "chown on closed handle fails");
+    ok(!chown($<, $(, $fh), "chown on closed handle fails");
     isnt($!+0, 0, "and errno was set");
 }