[Dbix-class] A patch for DBIx::Class::Loader::SQLite

[Ishigaki Kenichi]

Hi. DBIx::Class::Loader::SQLite does something wrong about PK detection.
Below is a patch to fix.

--- SQLite.pm	Tue Dec 20 18:17:27 2005
+++ SQLite_patched.pm	Mon Jan 23 01:13:44 2006
@@ -138,7 +138,7 @@
         @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 );



Regards,

Kenichi Ishigaki