X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FBase.pm;h=d79618d5592bf6a2978502c145e049d8bae8e5fc;hb=c9373b79cecb2bde4c0f07f4068ca38b1646fe34;hp=fe6c2cf5c51a42c38d857d41b546547a60687db6;hpb=1e1839d194d3713344fa716408b4fcf351396b48;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/lib/DBIx/Class/Schema/Loader/Base.pm b/lib/DBIx/Class/Schema/Loader/Base.pm
index fe6c2cf..d79618d 100644
--- a/lib/DBIx/Class/Schema/Loader/Base.pm
+++ b/lib/DBIx/Class/Schema/Loader/Base.pm
@@ -688,7 +688,15 @@ sub _setup_src_meta {
         $self->_dbic_stmt($table_class,'add_columns',@$cols);
     }
     else {
-        my %col_info_lc = map { lc($_), $col_info->{$_} } keys %$col_info;
+        my %col_info_lc;
+        for my $col (keys %$col_info) {
+            my $lc_col = lc $col;
+            $col_info_lc{$lc_col} = $col_info->{$_};
+
+            $col_info_lc{$lc_col}->{accessor} = $lc_col
+                if $col ne $lc_col;
+        }
+
         my $fks = $self->_table_fk_info($table);
         for my $fkdef (@$fks) {
             for my $col (@{ $fkdef->{local_columns} }) {