Bug #31212 for Class-DBI-Loader: CDBI::Loader::Generic does not disconnect from empty database

On Mon Dec 10 04:37:49 2007, DMAKI wrote: Show quoted text
This appears to be an issue in DBD::SQLite v1.14. I've attached a test script (test-cdbi.pl) which creates the following output running with that version: closing dbh with active statement handles at /usr/local/share/perl/5.8.8/Class/DBI/Loader/SQLite.pm line 110. When I downgrade DBD::SQLite to v1.12, there is no output. I've also attached a test script that only uses DBI (test-dbi.pl). This does not generate errors under either version so I wonder if there is something that CDBI is doing that is causing the statement handler to remain open. Thanks, William -- Knowmad Technologies http://www.knowmad.com

#!/usr/bin/perl use strict; use warnings; use Class::DBI::Loader; use Data::Dumper; my $db_file = '/tmp/test.dat'; unlink $db_file if -e $db_file; # remove the table my $dsn = "dbi:SQLite:dbname=$db_file"; warn "\nStarting loader...\n"; my $loader = Class::DBI::Loader->new( dsn => $dsn, namespace => 'Phonefinder', ); warn Dumper($loader->{CLASSES});

#!/usr/bin/perl use strict; use warnings; use DBI; use Data::Dumper; my $db_file = '/tmp/test.dat'; my $db_table = 'Phones'; # re-create the table unlink $db_file if -e $db_file; my $dsn = "dbi:SQLite:dbname=$db_file"; my $dbh = DBI->connect($dsn, '', '', {}); my $sql = "SELECT * FROM sqlite_master"; my $sth = $dbh->prepare($sql); my $rv = $sth->execute(); my $ary_ref = $sth->fetchrow_arrayref; $sth->finish; $dbh->disconnect; print Dumper($ary_ref);