From: Brandon Black <blblack@gmail.com>
Date: Tue, 17 Apr 2007 02:29:51 +0000 (+0000)
Subject: fix for ^sqlite_ tables from chromatic
X-Git-Tag: 0.03012~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=522ee84e0aad760fd9d81a55819ca545ea48cd5f;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

fix for ^sqlite_ tables from chromatic
---

diff --git a/Changes b/Changes
index 986322f..c414049 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 Revision history for Perl extension DBIx::Class::Schema::Loader
 
+        - skip ^sqlite_ tables in SQLite (thanks chromatic)
+
 0.03011 Sat Apr 14 19:03:07 UTC 2007
         - fix case-sensitivity in UNIQUE parsing for SQLite
 
diff --git a/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm b/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
index 10af19b..51530b4 100644
--- a/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
+++ b/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
@@ -147,6 +147,7 @@ sub _tables_list {
     my @tables;
     while ( my $row = $sth->fetchrow_hashref ) {
         next unless lc( $row->{type} ) eq 'table';
+        next if $row->{tbl_name} =~ /^sqlite_/;
         push @tables, $row->{tbl_name};
     }
     return @tables;