Parent Directory | Revision Log | Patch
revision 1.41 by spiralvoice, Sun Apr 24 19:44:16 2005 UTC | revision 1.42 by spiralvoice, Thu Jun 2 17:43:04 2005 UTC | |
---|---|---|
# | Line 99 let op_file_commit file new_name = | Line 99 let op_file_commit file new_name = |
99 | (Filename.basename file.file_torrent_diskname) | (Filename.basename file.file_torrent_diskname) |
100 | in | in |
101 | (try | (try |
102 | Sys.rename file.file_torrent_diskname new_torrent_diskname; | Unix2.rename file.file_torrent_diskname new_torrent_diskname; |
103 | with _ -> | with _ -> |
104 | (lprintf "BT op_file_commit: failed to rename %s to %s\n" | (lprintf "BT op_file_commit: failed to rename %s to %s\n" |
105 | file.file_torrent_diskname new_torrent_diskname)); | file.file_torrent_diskname new_torrent_diskname)); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |