- # Try actually creating a file. Due to ACLs this might be possible
- # even if the basic Unix permissions and Perl's -w test say
- # otherwise.
- my $file = "${dir}/.writetest";
- my $out = IO::File->new($file, "w") || return 0;
- $out->close;
- unlink $file;