Parent Directory | Revision Log | Patch
revision 1.45 by spiralvoice, Thu Oct 6 17:31:21 2005 UTC | revision 1.46 by spiralvoice, Thu Oct 6 17:34:22 2005 UTC | |
---|---|---|
# | Line 149 module FDCache = struct | Line 149 module FDCache = struct |
149 | close t; | close t; |
150 | (let d = (Filename.dirname (Filename.concat f file)) in | (let d = (Filename.dirname (Filename.concat f file)) in |
151 | Unix2.safe_mkdir d; | Unix2.safe_mkdir d; |
152 | Unix.chmod d (Misc.int_of_octal_string !create_dir_mask); | Unix2.chmod d (Misc.int_of_octal_string !create_dir_mask); |
153 | Unix2.can_write_to_directory d); | Unix2.can_write_to_directory d); |
154 | Unix2.rename t.filename (Filename.concat f file); | Unix2.rename t.filename (Filename.concat f file); |
155 | destroy t | destroy t |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |