On Perl 5.8, lchown() sometimes ends up with leaked errno; declare $! local.

diff --git a/examples/loopback.pl b/examples/loopback.pl
index 71e084e..88d81b9 100755 (executable)
--- a/examples/loopback.pl
+++ b/examples/loopback.pl
@@ -118,6 +118,7 @@ sub x_rename {
 sub x_link { return link(fixup(shift),fixup(shift)) ? 0 : -$! }
 sub x_chown {
     my ($fn) = fixup(shift);
 sub x_link { return link(fixup(shift),fixup(shift)) ? 0 : -$! }
 sub x_chown {
     my ($fn) = fixup(shift);

+    local $!;

     print "nonexistent $fn\n" unless -e $fn;
     my ($uid,$gid) = @_;
     lchown($uid, $gid, $fn);
     print "nonexistent $fn\n" unless -e $fn;
     my ($uid,$gid) = @_;
     lchown($uid, $gid, $fn);