Class::DBI::Loader won't install

[prev] [thread] [next] [Date index for 2004/09/10]

I'm trying to install Maypole via cpan, which is asking for a bunch of 
other packages, one of which is Class::DBI::Loader. It is failing its 
tests. I'm not quite sure what information is relevant. Here is what 
looks like the appropriate part of the log:

Running make test
PERL_DL_NONLAZY=1 /usr/bin/perl -Iblib/arch -Iblib/lib 
-I/usr/lib/perl/5.6.1 -I/usr/share/perl/5.6.1 -e 'use Test::Harness 
qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t
t/00_compile....ok 

         1/3 skipped: Class::DBI::Pg not found
t/01_mysql......
please specify the MySQL host: localhost
please specify the writable MySQL database: test
please specify the mysql username: dhoworth
please specify the mysql password:
Use of uninitialized value in regexp compilation at 
blib/lib/Class/DBI/Loader/mysql.pm line 19, <STDIN> line 4.
Use of uninitialized value in regexp compilation at 
blib/lib/Class/DBI/Loader/mysql.pm line 19, <STDIN> line 4.
fattribute_to_feature has no primary key at 
blib/lib/Class/DBI/Loader/mysql.pm line 24
# Looks like your test died before it could output anything.
t/01_mysql......dubious 

	Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-6

I had a look at Class/DBI/Loader/mysql.pm. Line 19 is "$table =~ 
s/$quoter//g;":

     my $dbh = DBI->connect(@{$self->_datasource}) or _croak($DBI::errstr);
     foreach my $table($dbh->tables) {
         my $quoter = $dbh->get_info(29);
         $table =~ s/$quoter//g;
         my $class = $self->_table2class($table);

My eyes glaze over when I see magic numbers like 29 in code about 4 
levels removed from what I'm trying to do :)  Can anybody shed any light 
on what's gone wrong?

Thanks and regards,
Dave