From c872ed31deaaa06128547ff845ea2dd669e953fa Mon Sep 17 00:00:00 2001
From: Derrik Pates <demon@now.ai>
Date: Fri, 29 Jul 2011 11:28:20 -0600
Subject: [PATCH] On Perl 5.8, lchown() sometimes ends up with leaked errno;
 declare $! local.

---
 examples/loopback.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/examples/loopback.pl b/examples/loopback.pl
index 71e084e..88d81b9 100755
--- 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);
+    local $!;
     print "nonexistent $fn\n" unless -e $fn;
     my ($uid,$gid) = @_;
     lchown($uid, $gid, $fn);
-- 
2.20.1