[Dbix-class] bug found in and tentatively fixed in
DBIx::Class::Schema::Loader::DBI::Oracle::_tables_list
Alexander Hartmaier
alexander.hartmaier at t-systems.at
Thu Feb 12 12:32:22 GMT 2009
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.
*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*
More information about the DBIx-Class
mailing list