Changeset 27652 for gs2-extensions/parallel-building
- Timestamp:
- 2013-06-18T10:51:56+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/perllib/FileUtils/HDThriftFS.pm
r27591 r27652 78 78 my $debug = 0; 79 79 my $debug_encoding = 0; 80 # Testing shows 64k is pretty optimal80 # Testing shows 128k is pretty optimal 81 81 #my $buffer_length = 4 * 1024; # 4k blocks 82 82 #my $buffer_length = 8 * 1024; # 8k blocks … … 760 760 open($fhout, '>:raw', $dst) or die("Failed to open file for writing: " . $dst); 761 761 my $fhin = $thrift_client->open($src_path); 762 # Read buffer_length *decoded* bytes - which means there may be a larger 763 # number of *encoded* bytes returned 762 764 while ($encoded = $thrift_client->read($fhin, $offset, $buffer_length)) 763 765 {
Note:
See TracChangeset
for help on using the changeset viewer.