/[mldonkey]/mldonkey/src/utils/cdk/unix2.ml
ViewVC logotype

Diff of /mldonkey/src/utils/cdk/unix2.ml

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

revision 1.18 by spiralvoice, Wed Nov 30 23:46:25 2005 UTC revision 1.19 by spiralvoice, Fri Dec 2 12:02:36 2005 UTC
# Line 74  let rec safe_mkdir dir = Line 74  let rec safe_mkdir dir =
74    else begin    else begin
75        let predir = Filename.dirname dir in        let predir = Filename.dirname dir in
76        if predir <> dir then safe_mkdir predir;        if predir <> dir then safe_mkdir predir;
77  (*      if dir <> "." then *) Unix.mkdir dir 0o775        begin try
78            Unix.mkdir dir 0o775
79          with
80            e -> lprintf_nl "error %s for directory %s" (Printexc2.to_string e) dir; exit 73
81          end
82      end          end    
83            
84            

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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