/[mldonkey]/mldonkey/src/utils/lib/unix32.ml
ViewVC logotype

Diff of /mldonkey/src/utils/lib/unix32.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by spiralvoice, Thu Jun 2 17:43:04 2005 UTC revision 1.30 by spiralvoice, Fri Jun 3 00:23:11 2005 UTC
# Line 139  module FDCache = struct Line 139  module FDCache = struct
139      let multi_rename t f file =      let multi_rename t f file =
140        check_destroyed t;        check_destroyed t;
141        close t;        close t;
142        Unix2.safe_mkdir (Filename.dirname (Filename.concat f file));        (let d = (Filename.dirname (Filename.concat f file)) in
143            Unix2.safe_mkdir d;
144            Unix.chmod d 0o777);
145        Unix2.rename t.filename (Filename.concat f file);        Unix2.rename t.filename (Filename.concat f file);
146        destroy t        destroy t
147    

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26