I believe I fixed the problem (cf my post "bug found in and tentatively fixed in DBIx::Class::Schema::Loader::DBI::Oracle::_tables_list" in the dbix mailing list").<br><br>Here's a copy : <br><blockquote style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;" class="gmail_quote">
We had a problem because DBIx::Class::Schema::Loader did not get the
column_info for our Oracle database : no data_types, is_nullable,
default etc.. attributes were set.<br>We traced the problem down to DBIx::Class::Schema::Loader::<div id=":11d" class="ArwC7c ckChnd">DBI::Oracle::_tables_list, that changed the table names to lowercase.<br>
<br>So just commenting the line 69 : $table = lc $table;<br>seems to fix the problem.<br><br>The test is either to call the _tables_list and check the table names, <br>or to create a schema on a n oracle db using DBIx::Class::Schema::Loader::make_schema_at, and to check that the generated DBIx::Class objects have <br>
the column attributes such as data_type, default_value , is_nullable , size etc...<br><br> <br>Here are some details:<br>DBIx::Class::Schema::Loader $VERSION = '0.04004'<br> perl, v5.8.8 built for i486-linux-gnu-thread-multi<br>
<br>diff:<br>--- Oracle.pm 2009-02-11 13:35:08.000000000 +0100<br>+++ Oracle.pm.fixed 2009-02-11 13:35:04.000000000 +0100<br>@@ -66,7 +66,7 @@<br> $table =~ s/\w+\.//;<br> <br> next if $table eq 'PLAN_TABLE';<br>
- $table = lc $table;<br>+ # $table = lc $table; # removed by kf<br> push @tables, $1<br> if $table =~ /\A(\w+)\z/;<br> }</div></blockquote><br>