X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=examples%2Floopback_t.pl;h=863a3f4f9c2ca18ef48ac827e5a22f953fe74e2b;hb=4c125a4756cbb8af686765830db1c33fa3543618;hp=8302aa8fa480cc164f19e885e0e9bfbaa3a28ddd;hpb=187e1c207717e9b684a5ce308dd1619dddda41a1;p=perl-fuse.git

diff --git a/examples/loopback_t.pl b/examples/loopback_t.pl
old mode 100644
new mode 100755
index 8302aa8..863a3f4
--- a/examples/loopback_t.pl
+++ b/examples/loopback_t.pl
@@ -7,7 +7,7 @@ use blib;
 use Fuse;
 use IO::File;
 use POSIX qw(ENOENT ENOSYS EEXIST EPERM O_RDONLY O_RDWR O_APPEND O_CREAT);
-use Fcntl qw(S_ISBLK S_ISCHR S_ISFIFO SEEK_SET);
+use Fcntl qw(S_ISBLK S_ISCHR S_ISFIFO SEEK_SET S_ISREG S_ISFIFO S_IMODE);
 my $can_syscall = eval {
 	require 'syscall.ph'; # for SYS_mknod and SYS_lchown
 };
@@ -121,7 +121,18 @@ sub x_mknod {
 	# and possibly run the real mknod command.
 	my ($file, $modes, $dev) = @_;
 	$file = fixup($file);
-	$! = 0;
+	undef $!;
+	if ($^O eq 'freebsd' || $^O eq 'darwin' || $^O eq 'netbsd') {
+		if (S_ISREG($modes)) {
+			open(FILE, '>', $file) || return -$!;
+			print FILE "";
+			close(FILE);
+			return 0;
+		} elsif (S_ISFIFO($modes)) {
+			my ($rv) = POSIX::mkfifo($file, S_IMODE($modes));
+			return $rv ? 0 : -POSIX::errno();
+		}
+	}
 	syscall(&SYS_mknod,$file,$modes,$dev);
 	return -$!;
 }