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