Circumvent buggy negation of assigned $!.

[perl-fuse.git] / examples / loopback_t.pl

diff --git a/examples/loopback_t.pl b/examples/loopback_t.pl
index 0e72261..db03fb9 100755 (executable)
--- a/examples/loopback_t.pl
+++ b/examples/loopback_t.pl
@@ -121,7 +121,7 @@ sub x_mknod {
        # and possibly run the real mknod command.
        my ($file, $modes, $dev) = @_;
        $file = fixup($file);
-       $! = 0;
+       undef $!;
        if ($^O eq 'freebsd') {
                if (S_ISREG($modes)) {
                        open(FILE, '>', $file) || return -$!;