[Bast-commits] r3316 - trunk/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI

[blblack at dev.catalyst.perl.org]

Author: blblack
Date: 2007-05-15 14:53:49 +0100 (Tue, 15 May 2007)
New Revision: 3316

Modified:
   trunk/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
Log:

Fix from Marc Espie for CREATE TABLE 'foo' 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-05-14 22:59:07 UTC (rev 3315)
+++ trunk/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm	2007-05-15 13:53:49 UTC (rev 3316)
@@ -42,7 +42,7 @@
     $sth->finish;
 
     # Cut "CREATE TABLE ( )" blabla...
-    $sql =~ /^[\w\s]+\((.*)\)$/si;
+    $sql =~ /^[\w\s']+\((.*)\)$/si;
     my $cols = $1;
 
     # strip single-line comments