From: Derrik Pates <demon@now.ai>
Date: Fri, 29 Jul 2011 17:28:20 +0000 (-0600)
Subject: On Perl 5.8, lchown() sometimes ends up with leaked errno; declare $! local.
X-Git-Url: http://git.rot13.org/?p=perl-fuse.git;a=commitdiff_plain;h=c872ed31deaaa06128547ff845ea2dd669e953fa

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
--- 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);