[Bast-commits] r3191 - in branches/DBIx-Class-Schema-Loader/current: . lib/DBIx/Class/Schema lib/DBIx/Class/Schema/Loader/DBI

[blblack at dev.catalyst.perl.org]

Author: blblack
Date: 2007-04-14 20:49:33 +0100 (Sat, 14 Apr 2007)
New Revision: 3191

Modified:
   branches/DBIx-Class-Schema-Loader/current/
   branches/DBIx-Class-Schema-Loader/current/Changes
   branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader.pm
   branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
Log:
 r30323 at brandon-blacks-computer (orig r3183):  blblack | 2007-04-09 08:12:53 -0500
 fix case-sensitivity in UNIQUE parsing for SQLite
 r30516 at brandon-blacks-computer (orig r3190):  blblack | 2007-04-14 14:44:36 -0500
 0.03011



Property changes on: branches/DBIx-Class-Schema-Loader/current
___________________________________________________________________
Name: svk:merge
   - bd8105ee-0ff8-0310-8827-fb3f25b6796d:/trunk/DBIx-Class-Schema-Loader:3147
   + bd8105ee-0ff8-0310-8827-fb3f25b6796d:/trunk/DBIx-Class-Schema-Loader:3190

Modified: branches/DBIx-Class-Schema-Loader/current/Changes
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/Changes	2007-04-14 19:44:36 UTC (rev 3190)
+++ branches/DBIx-Class-Schema-Loader/current/Changes	2007-04-14 19:49:33 UTC (rev 3191)
@@ -16,6 +16,9 @@
         - Removed previously deprecated methods/options
         - Added $VERSION to all packages in this dist
 
+0.03011 Sat Apr 14 19:03:07 UTC 2007
+        - fix case-sensitivity in UNIQUE parsing for SQLite
+
 0.03010 Thu Mar 29 12:36:19 UTC 2007
         - Workaround for new incompatible changes in DBD::mysql's "tables"
           method, which was causing us to find no tables w/ DBD::mysql

Modified: branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm	2007-04-14 19:44:36 UTC (rev 3190)
+++ branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm	2007-04-14 19:49:33 UTC (rev 3191)
@@ -97,12 +97,12 @@
         # Grab reference
         chomp $col;
 
-        if($col =~ /^(.*)\s+UNIQUE/) {
+        if($col =~ /^(.*)\s+UNIQUE/i) {
             my $colname = $1;
             $colname =~ s/\s+.*$//;
             push(@uniqs, [ "${colname}_unique" => [ lc $colname ] ]);
         }
-        elsif($col =~/^\s*UNIQUE\s*\(\s*(.*)\)/) {
+        elsif($col =~/^\s*UNIQUE\s*\(\s*(.*)\)/i) {
             my $cols = $1;
             $cols =~ s/\s+$//;
             my @cols = map { lc } split(/\s*,\s*/, $cols);

Modified: branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader.pm
===================================================================