[backend] use POSIX::access instead of '-w'

Because -w does not look at ACLs.
openSUSE · Sep 26, 2016 · 9799ca7 · 9799ca7
1 parent 388cc0e
commit 9799ca7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/backend/BSStdServer.pm b/src/backend/BSStdServer.pm
@@ -273,7 +273,7 @@ sub server {
     }
   }
   mkdir_p($rundir);
-  die("cannot write to rundir '$rundir'\n") unless -w $rundir;
+  die("cannot write to rundir '$rundir'\n") unless POSIX::access($rundir, POSIX::W_OK);
   # intialize xml converter to speed things up
   XMLin(['startup' => '_content'], '<startup>x</startup>');