Changeset: 82175280837a for monetdb-perl
URL: https://dev.monetdb.org/hg/monetdb-perl?cmd=changeset;node=82175280837a
Modified Files:
MonetDB-CLI-MapiPP/MonetDB/CLI/Mapi.pm
debian/changelog
perl-DBD-monetdb.spec
Branch: default
Log Message:
Fix blocksize for Mapi protocol: it's 8190 bytes and always has been.
diffs (51 lines):
diff --git a/MonetDB-CLI-MapiPP/MonetDB/CLI/Mapi.pm
b/MonetDB-CLI-MapiPP/MonetDB/CLI/Mapi.pm
--- 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 ) {
diff --git a/debian/changelog b/debian/changelog
--- 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 <[email protected]> Mon, 19 Aug 2019 21:41:15 +0200
+
libdbd-monetdb-perl (1.0-2) unstable; urgency=low
* Added full license text.
diff --git a/perl-DBD-monetdb.spec b/perl-DBD-monetdb.spec
--- 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 <[email protected]> - 1.1-1
+- Fixed the blocksize in the Mapi protocol.
+
* Mon Sep 19 2016 Sjoerd Mullender <[email protected]>
- The Perl interface to MonetDB is now a separate package.
_______________________________________________
checkin-list mailing list
[email protected]
https://www.monetdb.org/mailman/listinfo/checkin-list
