Mercurial > hg > monetdb-perl
changeset 8:82175280837a
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 | ff83458a625d |
| children | 80269099517d |
| files | MonetDB-CLI-MapiPP/MonetDB/CLI/Mapi.pm debian/changelog perl-DBD-monetdb.spec |
| diffstat | 3 files changed, 12 insertions(+), 3 deletions(-) [+] |
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 ) {
--- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +libdbd-monetdb-perl (1.1-1) unstable; urgency=low + + * Fixed the blocksize in the Mapi protocol. + + -- Sjoerd Mullender <sjoerd@acm.org> Mon, 19 Aug 2019 21:41:15 +0200 + libdbd-monetdb-perl (1.0-2) unstable; urgency=low * Added full license text.
--- a/perl-DBD-monetdb.spec +++ b/perl-DBD-monetdb.spec @@ -1,6 +1,6 @@ Name: perl-DBD-monetdb -Version: 1.0 -Release: 2%{?dist} +Version: 1.1 +Release: 1%{?dist} Summary: MonetDB perl interface License: MPLv2.0 @@ -54,5 +54,8 @@ find $RPM_BUILD_ROOT -depth -type d -exe %changelog +* Mon Aug 19 2019 Sjoerd Mullender <sjoerd@acm.org> - 1.1-1 +- Fixed the blocksize in the Mapi protocol. + * Mon Sep 19 2016 Sjoerd Mullender <sjoerd@mullender.nl> - The Perl interface to MonetDB is now a separate package.