Subject: | column_info : sth undefined |
context : cygwin, Windows-XP.
$colsth= $dbh->column_info($table_cat,$table_schem,$table_name,'%');
Can't call method "execute" on an undefined value at
/usr/lib/perl5/site_perl/5.10/i686-cygwin/DBD/SQLite.pm line 519.
i fixed the problem in this module :
old :
# Taken from Fey::Loader::SQLite
my @cols;
while ( my ($schema, $table) = $sth_tables->fetchrow_array ) {
my $sth_columns = $dbh->prepare(qq{PRAGMA
"$schema".table_info("$table")});
$sth_columns->execute;
new :
# Taken from Fey::Loader::SQLite
my @cols;
my $tbls;
my ($schema, $table);
while ( $tbls = $sth_tables->fetchrow_arrayref ) {
$schema= $$tbls[0];
$table= $$tbls[1];
my $sth_columns = $dbh->prepare(qq{PRAGMA
"$schema".table_info("$table")});
$sth_columns->execute;
i hope this can help.