Mercurial > hg > monetdb-perl

diff MonetDB-CLI-MapiPP/MonetDB/CLI/Mapi.pm @ 8:82175280837a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix blocksize for Mapi protocol: it's 8190 bytes and always has been.
author Sjoerd Mullender <sjoerd@acm.org>
date Mon, 19 Aug 2019 21:37:30 +0200 (2019-08-19)
parents a0ec9e080a5b
children 8c8bd15f7a0b
line wrap: on
line diff
--- a/MonetDB-CLI-MapiPP/MonetDB/CLI/Mapi.pm
+++ b/MonetDB-CLI-MapiPP/MonetDB/CLI/Mapi.pm
@@ -433,12 +433,12 @@ sub putblock {
   # create blocks of data with max 0xffff length,
   # then loop over the data and send it.
   my $out = '';
+  my $blocksize = 8190;       # max len per block
   for my $blk (@blocks) {
     print "OUT:\n$$blk\n" if $ENV{MAPI_TRACE};
     utf8::downgrade($$blk); # deny wide chars
     my $pos        = 0;
     my $last_block = 0;
-    my $blocksize  = 0x7fff >> 1;       # max len per block
     my $data;
 
     while ( !$last_block ) {