Bug #17910 for Class-DBI-Loader-DB2: Does not find primary keys

Wed Mar 01 02:30:39 2006 Guest - Ticket created

Subject:

Does not find primary keys

File Class/DBI/Loader/DB2.pm, sub _load_classes extracts all tables with $dbh->tables( { 'TABLE_TYPE' => 'TABLE' } ). This returns with schema and tablename enclosed in " (e.g. "SCHEMA"."TABNAME"). The split does not remove the " and the query for keycolumns fails. I use a test fix, I inserted one line: $table =~ s/"//g; # <<< inserted by me my ($tabschema,$tbl) = split '\.', $table; # original line This is perl, v5.8.7 built for MSWin32-x86-multi-thread Binary build 815 [211909] provided by ActiveState. DB2 Version 8.2, FP3 Personal Edition

Wed Mar 01 02:33:17 2006 Guest - Correspondence added

From:

joerg.braun [...] lbs-it.de

I forgot: On Mi. 01. Mär. 2006, 02:30:39, guest wrote: Show quoted text

> I use a test fix, I inserted one line: > $table =~ s/"//g; # <<< inserted by me > my ($tabschema,$tbl) = split '\.', $table; # original line

Test stills fails, as it generates wrong class, trying to work this out: not ok 1 # Failed test in t/01-basic.t at line 76. # got: 'Db2adminTeste' # expected: 'Db2admin.teste'

Wed Mar 01 02:33:18 2006 The RT System itself - Status changed from 'new' to 'open'

Wed Mar 01 02:48:12 2006 Guest - Correspondence added

On Mi. 01. Mär. 2006, 02:33:17, guest wrote: Show quoted text

> Test stills fails, as it generates wrong class, trying to work this > out: > > not ok 1 > # Failed test in t/01-basic.t at line 76. > # got: 'Db2adminTeste' > # expected: 'Db2admin.teste'

Test has to be fixed in file t/01-basic.t at line 73. from: $subclass =~ s/_(\w)/ucfirst($1)/eg; to: $subclass =~ s/[_.](\w)/ucfirst($1)/eg; The schema and table are seperated by a '.'. The dot is only replaced in alias names with an underscore.