[Dbix-class] bug found in and tentatively fixed in DBIx::Class::Schema::Loader::DBI::Oracle::_tables_list

[Alexander Hartmaier]

Hi!

That works for me flawless!
Try the current dev version from cpan!

--
BR Alex



Am Mittwoch, den 11.02.2009, 13:36 +0100 schrieb Karl Forner:
> Hello,
>
> 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.
> We traced the problem down to
> DBIx::Class::Schema::Loader::DBI::Oracle::_tables_list, that changed
> the table names to lowercase.
>
> So just commenting the line  69 : $table = lc $table;
> seems to fix the problem.
>
> The test is either to call the _tables_list and check the table
> names,
> 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
> the column attributes such as    data_type,  default_value ,
> is_nullable , size etc...
>
>
> Here are some details:
> DBIx::Class::Schema::Loader $VERSION = '0.04004'
>  perl, v5.8.8 built for i486-linux-gnu-thread-multi
>
> diff:
> --- Oracle.pm    2009-02-11 13:35:08.000000000 +0100
> +++ Oracle.pm.fixed    2009-02-11 13:35:04.000000000 +0100
> @@ -66,7 +66,7 @@
>          $table =~ s/\w+\.//;
>
>          next if $table eq 'PLAN_TABLE';
> -        $table = lc $table;
> +        # $table = lc $table; # removed by kf
>          push @tables, $1
>            if $table =~ /\A(\w+)\z/;
>      }
>
>
>


*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*
T-Systems Austria GesmbH   Rennweg 97-99, 1030 Wien
Handelsgericht Wien, FN 79340b
*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*
Notice: This e-mail contains information that is confidential and may be privileged.
If you are not the intended recipient, please notify the sender and then
delete this e-mail immediately.
*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*