Be more cautious creating log directories

[hcoop/domtool2.git] / src / plugins / apache.sml

diff --git a/src/plugins/apache.sml b/src/plugins/apache.sml
index 91209af..955e9d8 100644 (file)
--- a/src/plugins/apache.sml
+++ b/src/plugins/apache.sml
@@ -246,7 +246,10 @@ val () = Slave.registerFileHandler (fn fs =>
                                                                                       ^ #file fs
                                                                                       ^ " "
                                                                                       ^ realVhostFile));
-                                                           OS.FileSys.mkDir realLogDir)
+                                                           if Posix.FileSys.access (realLogDir, []) then
+                                                               ()
+                                                           else
+                                                               OS.FileSys.mkDir realLogDir)
                                                           
                                                         | _ =>
                                                           ignore (OS.Process.system (Config.cp