Bug#643697: libdbd-mock-perl: mock sessions no longer return results

[Frédéric Brière]

Package: libdbd-mock-perl
Version: 1.41-1
Severity: normal

The attached script illustrates the problem.

When run under 1.39, the results of a session are returned as requested:

$VAR1 = {
          'life' => 24
        };

But undef 1.41, nothing is returned:

$VAR1 = {};


-- System Information:
Debian Release: wheezy/sid
  APT prefers unstable
  APT policy: (500, 'unstable')
Architecture: i386 (i686)

Kernel: Linux 3.0.0-1-686-pae (SMP w/3 CPU cores)
Locale: LANG=en_CA.UTF-8, LC_CTYPE=en_CA.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash

Versions of packages libdbd-mock-perl depends on:
ii  libdbi-perl  1.616-1+b1
ii  perl         5.12.4-4  

libdbd-mock-perl recommends no packages.

libdbd-mock-perl suggests no packages.

-- no debconf information

use DBI;
use Data::Dumper;

my $dbh = DBI->connect('DBI:Mock:', '', '')
        or die "Cannot create handle: $DBI::errstr\n";

$dbh->{mock_session} = new DBD::Mock::Session (
        'foo' => (
                {
                        statement       => 'SELECT x',
                        bound_params    => [ '42' ],
                        results         => [ ['life'], [24] ],
                }
        )
);

my $row = $dbh->selectrow_hashref("SELECT x", undef, 42);
warn Dumper $row;