0.03006 - fix columns_info_for interaction

[dbsrgits/DBIx-Class-Schema-Loader.git] / lib / DBIx / Class / Schema / Loader / Base.pm

diff --git a/lib/DBIx/Class/Schema/Loader/Base.pm b/lib/DBIx/Class/Schema/Loader/Base.pm
index 00c0c2b..c786457 100644 (file)
--- a/lib/DBIx/Class/Schema/Loader/Base.pm
+++ b/lib/DBIx/Class/Schema/Loader/Base.pm
@@ -493,10 +493,11 @@ sub _load_classes {
             $self->_dbic_stmt($table_class,'add_columns',@$cols);
         }
         else {
+            my %col_info_lc = map { lc($_), $col_info->{$_} } keys %$col_info;
             $self->_dbic_stmt(
                 $table_class,
                 'add_columns',
-                map { $_, $col_info->{$_} } @$cols
+                map { $_, ($col_info_lc{$_}||{}) } @$cols
             );
         }