bump version to 0.03999_01, added $VERSION to all packages

[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..47d9654 100644 (file)
--- a/lib/DBIx/Class/Schema/Loader/Base.pm
+++ b/lib/DBIx/Class/Schema/Loader/Base.pm
@@ -11,6 +11,8 @@ use Data::Dump qw/ dump /;
 use POSIX qw//;
 require DBIx::Class;
 
+our $VERSION = '0.03999_01';
+
 __PACKAGE__->mk_ro_accessors(qw/
                                 schema
                                 schema_class
@@ -493,10 +495,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
             );
         }