*** lib/EB/DB/Sqlite.pm~ 2008-02-07 13:18:24.000000000 +0100
--- lib/EB/DB/Sqlite.pm 2009-12-28 21:09:09.000000000 +0100
***************
*** 171,177 ****
foreach ( $dbh->tables ) {
# SQLite returns table names with quotes.
# Our tables all start with an uppercase letter.
! next unless /^"([[:upper:]].+)"$/i;
push(@t, lc($1));
}
\@t;
--- 171,177 ----
foreach ( $dbh->tables ) {
# SQLite returns table names with quotes.
# Our tables all start with an uppercase letter.
! next unless /^"(?:main"\.")?([[:upper:]].+)"$/i;
push(@t, lc($1));
}
\@t;