From: Brandon Black <blblack@gmail.com>
Date: Mon, 23 Jan 2006 06:26:26 +0000 (+0000)
Subject: Fix for SQLite PKs
X-Git-Tag: 0.03000~48
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9a69e8599d091ede66bce17c88587933ff205027;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

Fix for SQLite PKs
---

diff --git a/lib/DBIx/Class/Schema/Loader/SQLite.pm b/lib/DBIx/Class/Schema/Loader/SQLite.pm
index d8f8cca..1a860ac 100644
--- a/lib/DBIx/Class/Schema/Loader/SQLite.pm
+++ b/lib/DBIx/Class/Schema/Loader/SQLite.pm
@@ -133,7 +133,7 @@ SQL
         @pks = ($primary);
     }
     else {
-        my ($pks) = $sql =~ m/PRIMARY\s+KEY\s*\(\s*([^)]+)\s*\)/;
+        my ($pks) = $sql =~ m/PRIMARY\s+KEY\s*\(\s*([^)]+)\s*\)/i;
         @pks = split( m/\s*\,\s*/, $pks ) if $pks;
     }
     return ( \@columns, \@pks );