Changeset: 7dc06e743f7c for MonetDB URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=7dc06e743f7c Modified Files: clients/ChangeLog.Aug2011 clients/perl/Mapi.pm Branch: Aug2011 Log Message:
Mapi.pm: don't overwrite count for continuation blocks As suggested by R?my Chibois, don't always just overwrite the count field, since it may wipe out the correct value for mapi continuation blocks (with larger results). Bug #2889 diffs (27 lines): diff --git a/clients/ChangeLog.Aug2011 b/clients/ChangeLog.Aug2011 --- a/clients/ChangeLog.Aug2011 +++ b/clients/ChangeLog.Aug2011 @@ -1,6 +1,9 @@ # ChangeLog file for clients # This file is updated with Maddlog +* Fri Sep 23 2011 Fabian Groffen <[email protected]> +- Fixed Perl DBD rowcount for larger results, bug #2889 + * Mon Sep 19 2011 Sjoerd Mullender <[email protected]> - Perl: We now distinguish properly between TABLE and GLOBAL TEMPORARY (the latter are recognized by being in the "tmp" schema). diff --git a/clients/perl/Mapi.pm b/clients/perl/Mapi.pm --- a/clients/perl/Mapi.pm +++ b/clients/perl/Mapi.pm @@ -284,9 +284,8 @@ sub getBlock { my @chars = split(//, $header); $self->{id} = -1; - $self->{count} = scalar(@{$self->{lines}}); $self->{nrcols} = -1; - $self->{replysize} = $self->{count}; + $self->{replysize} = scalar(@{$self->{lines}}); $self->{active} = 0; $self->{skip} = 0; # next+skip is current result row $self->{next} = 0; # all done _______________________________________________ Checkin-list mailing list [email protected] http://mail.monetdb.org/mailman/listinfo/checkin-list
