Index: lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm =================================================================== --- lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm (revision 7780) +++ lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm (working copy) @@ -80,12 +80,12 @@ q{ SELECT constraint_name, acc.column_name FROM all_constraints JOIN all_cons_columns acc USING (constraint_name) - WHERE acc.table_name=? AND constraint_type='U' + WHERE acc.table_name=? and acc.owner = ? AND constraint_type='U' ORDER BY acc.position }, {}, 1); - $sth->execute(uc $table); + $sth->execute(uc $table,$self->{db_schema} ); my %constr_names; while(my $constr = $sth->fetchrow_arrayref) { my $constr_name = lc $constr->[0];