$self->preserve_case(0);
}
elsif ($self->preserve_case) {
- $self->schema->storage->quote_char('"');
- $self->schema->storage->name_sep('.');
+ $self->schema->storage->sql_maker->quote_char('"');
+ $self->schema->storage->sql_maker->name_sep('.');
}
}
$sth->execute($self->_uc($table),$self->{db_schema} );
my %constr_names;
while(my $constr = $sth->fetchrow_arrayref) {
- my $constr_name = $constr->[0];
+ my $constr_name = $self->_lc($constr->[0]);
my $constr_col = $self->_lc($constr->[1]);
$constr_name =~ s/\Q$self->{_quoter}\E//;
$constr_col =~ s/\Q$self->{_quoter}\E//;