[Mldonkey-commits] Changes to mldonkey/src/utils/cdk/unix2.ml

[mldonkey-commits]

Index: mldonkey/src/utils/cdk/unix2.ml
diff -u mldonkey/src/utils/cdk/unix2.ml:1.18 
mldonkey/src/utils/cdk/unix2.ml:1.19
--- mldonkey/src/utils/cdk/unix2.ml:1.18        Wed Nov 30 23:46:25 2005
+++ mldonkey/src/utils/cdk/unix2.ml     Fri Dec  2 12:02:36 2005
@@ -74,7 +74,11 @@
   else begin
       let predir = Filename.dirname dir in
       if predir <> dir then safe_mkdir predir;
-(*      if dir <> "." then *) Unix.mkdir dir 0o775
+      begin try
+        Unix.mkdir dir 0o775
+      with
+        e -> lprintf_nl "error %s for directory %s" (Printexc2.to_string e) 
dir; exit 73
+      end
     end