[Bast-commits] r3197 - in trunk/DBIx-Class-Schema-Loader: . lib/DBIx/Class/Schema/Loader/DBI

[blblack at dev.catalyst.perl.org]

Author: blblack
Date: 2007-04-17 03:29:51 +0100 (Tue, 17 Apr 2007)
New Revision: 3197

Modified:
   trunk/DBIx-Class-Schema-Loader/Changes
   trunk/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
Log:
fix for ^sqlite_ tables from chromatic

Modified: trunk/DBIx-Class-Schema-Loader/Changes
===================================================================
--- trunk/DBIx-Class-Schema-Loader/Changes	2007-04-16 12:55:44 UTC (rev 3196)
+++ trunk/DBIx-Class-Schema-Loader/Changes	2007-04-17 02:29:51 UTC (rev 3197)
@@ -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
 

Modified: trunk/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
===================================================================
--- trunk/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm	2007-04-16 12:55:44 UTC (rev 3196)
+++ trunk/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm	2007-04-17 02:29:51 UTC (rev 3197)
@@ -147,6 +147,7 @@
     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;