Hi,
I have a stable, working DBI setup on our 'production' server. This
runs with DBD::Oracle day to day without problems.
I am now wanting to install Class::DBI on that server. (Yes I've heard
that DBIx::Class is "better", but we have a working application
written with Class::DBI on a different, development, box that I'd like
to migrate).
Doing an install from CPAN , I see
Running make for T/TM/TMTM/Class-DBI-v3.0.17.tar.gz
I get told
---- Unsatisfied dependencies detected during
[T/TM/TMTM/Class-DBI-v3.0.17.tar.gz] -----
Ima::DBI
say yes to install that,
Running make for P/PE/PERRIN/Ima-DBI-0.35.tar.gz
Checking if your kit is complete...
Looks good
Writing Makefile for Ima::DBI
cp lib/Ima/DBI.pm blib/lib/Ima/DBI.pm
Manifying blib/man3/Ima::DBI.3pm
/usr/bin/make -- OK
Running make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e"
"test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/DBI.............Can't use string ("DBIx::ContextualFetch::ISA") as
an ARRAY ref while "strict refs" in use at
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/DBI.pm line
531.
# Looks like you planned 27 tests but only ran 3.
# Looks like your test died just after 3.
The referenced line in DBI.pm is the first "::ISA" line below:
8<===8<====8<====8<====8<
....
# handle basic RootClass subclassing:
my $rebless_class = $attr->{RootClass} || ($class ne 'DBI' ? $class : '');
if ($rebless_class) {
if ($attr->{RootClass}) { # explicit attribute (rather
than static call)
delete $attr->{RootClass};
DBI::_load_module($rebless_class, 0) unless
@{"$rebless_class\::ISA"}; #line 531
}
no strict 'refs';
unless (@{"$rebless_class\::db::ISA"} &&
@{"$rebless_class\::st::ISA"}) {
.....
8<===8<====8<====8<====8<
I guess I *could* turn off the 'strict refs' within the failing block
...would that be a "Bad Thing"?
Any other suggestions would be very welcome!
DBI version is 1.32
Perl is 5.8.0
OS is Red Hat Enterprise Linux ES release 3 (Taroon Update 9)
Thanks
victor
