use namespace::clean;
use DBIx::Class::Schema::Loader::Table::Informix ();
-our $VERSION = '0.07012';
+our $VERSION = '0.07022';
=head1 NAME
$self->next::method(@_);
- if (not defined $self->preserve_case) {
+ if (not $self->preserve_case) {
$self->preserve_case(0);
}
elsif ($self->preserve_case) {
sub _idx_colnames {
my ($self, $idx_info, $table_cols_by_colno) = @_;
- return [ map $self->_lc($table_cols_by_colno->{$_}), grep $_, map $idx_info->{$_}, map "part$_", (1..16) ];
+ return [ map $table_cols_by_colno->{$_}, grep $_, map $idx_info->{$_}, map "part$_", (1..16) ];
}
sub _colnames_by_colno {
EOF
$sth->execute($table);
my $cols = $sth->fetchall_hashref('colno');
- $cols = { map +($_, $cols->{$_}{colname}), keys %$cols };
+ $cols = { map +($_, $self->_lc($cols->{$_}{colname})), keys %$cols };
return $cols;
}
# if (lc($data_type) eq 'varchar') {
# $result->{$col}{size}[1] = $info->{colmin};
# }
-
+
my ($default_type, $default) = @{$info}{qw/deflt_type deflt/};
next unless $default_type;