Parent Directory | Revision Log | Patch
revision 1.26 by spiralvoice, Fri Sep 2 23:48:54 2005 UTC | revision 1.27 by spiralvoice, Sun Oct 16 20:42:54 2005 UTC | |
---|---|---|
# | Line 256 let new_file file_temporary file_name fi | Line 256 let new_file file_temporary file_name fi |
256 | let t = Unix32.create_rw file_temp in | let t = Unix32.create_rw file_temp in |
257 | let file_chunk_size = | let file_chunk_size = |
258 | max megabyte ( | max megabyte ( |
259 | file_size // (max (Int64.of_int 5) (file_size // (megabytes 5))) | file_size // (max 5L (file_size // (megabytes 5))) |
260 | ) | ) |
261 | in | in |
262 | let keywords = CommonUploads.words_of_filename file_name in | let keywords = CommonUploads.words_of_filename file_name in |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |