[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.15 
mldonkey/src/utils/cdk/unix2.ml:1.16
--- mldonkey/src/utils/cdk/unix2.ml:1.15        Fri Sep  2 22:39:59 2005
+++ mldonkey/src/utils/cdk/unix2.ml     Thu Oct  6 17:34:22 2005
@@ -54,6 +54,9 @@
 let is_link filename =
   try let s = Unix.lstat filename in s.st_kind = S_LNK with _ -> false
 
+let chmod f o = 
+  try Unix.chmod f o with e -> lprintf "warning: chmod failed on %s: %s" f 
(Printexc2.to_string e)
+
 let rec safe_mkdir dir =  
   if Sys.file_exists dir then begin
       if not (is_directory dir) then