Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |