Bug 208012

Using the example from the readme, I get the following error:

DBD::CSV::st execute failed: Can't locate object method "command" via package
"DBD::CSV::Statement" at /usr/lib/perl5/vendor_perl/5.8.8/DBD/CSV.pm line 156.
 [for Statement "SELECT * FROM a"] at b.pl line 16.
DBD::CSV::st fetchrow_array failed: Attempt to fetch row from a Non-SELECT
statement [for Statement "SELECT * FROM a"] at b.pl line 18.


To reproduce, run this:

use DBI;
$dbh = DBI->connect("DBI:CSV:f_dir=$HOME/csvdb")
or die "Cannot connect: " . $DBI::errstr;
$sth = $dbh->prepare("CREATE TABLE a (id INTEGER, name CHAR(10))")
or die "Cannot prepare: " . $dbh->errstr();
$sth->execute() or die "Cannot execute: " . $sth->errstr();
$sth->finish();

then this:

use DBI;
$dbh = DBI->connect(qq{DBI:CSV:csv_sep_char=\\;});
           $sth = $dbh->prepare("SELECT * FROM a");
$sth->execute();
while (my @row = $sth->fetchrow_array) {
        print "@row\n";
}