Bug #48502 for SQL-Statement: SQL-Statement breaks DBD::CSV

The attached test script fails with the following errors: not ok 4 # Test 4 got: <UNDEF> (csv.pl at line 24) # Expected: "2" # csv.pl line 24 is: ok($row->{id}, 2); not ok 5 # Test 5 got: <UNDEF> (csv.pl at line 25) # Expected: "foo" # csv.pl line 25 is: ok($row->{name}, "foo"); It works correctly with SQL-Statement 1.15. Using Perl 5.10.0 and DBI 1.609

use strict; use warnings; use DBI; use Test; plan tests => 6; my $table = "table$$"; unlink($table) if -f $table; my $dbh = DBI->connect("DBI:CSV:"); ok(defined $dbh); $dbh->do("CREATE TABLE $table (id INTEGER, name CHAR(64))"); $dbh->do("INSERT INTO $table VALUES (?, ?)", undef, 2, "foo"); my $sth = $dbh->prepare("SELECT * FROM $table WHERE id > 1 ORDER BY id"); $sth->execute(); my $row = $sth->fetchrow_hashref; ok(defined $row); ok(ref($row), "HASH"); ok($row->{id}, 2); ok($row->{name}, "foo"); $row = $sth->fetchrow_hashref; ok(!$row); $sth->finish(); $dbh->disconnect(); unlink($table);