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
-------------- next part --------------
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;