[CDBI] Script that crashes mod_perl

Eric Just <e-just-angj7XTnwNpXfO9P/[email protected]>
Newsgroups gmane.comp.lang.perl.modules.class-dbi
Message-ID <[email protected]>
Does anyone have any insights as to why the following script crashes 
mod_perl after 2000 page requests?  It is, I imagine one of the simplest 
scripts you could write with Class::DBI.

I have set up an apache benchmark (ab) script to get this page multiple 
times and it seems to always crash after about 2000 requests.  A script 
that does the same thing with DBD::Oracle does not crash it, neither does 
one written with Ima::DBI.  I have tried various combinations of

$Class::DBI::Weaken_Is_Available = 0; #(in the class def for dicty::Testing)
$auto_cv->remove_from_object_index(); #(at the end of the script)
$auto_cv->clear_object_index();            #(at the end of the script)

None of those seemed to work.

I am using windows XP and Xampp and Class::DBI 3.0.6

here is the script:
--------------------------------------------------------------------------------------------------------------------------------------------------------
#!C:/web/xampp/perl/bin/perl.exe

package dicty::Testing;
use base qw( Class::DBI );

dicty::Testing->set_db('Main','dbi:Oracle:dictyBase', 'CGM_CHADO', 
'CGM_CHADO');

package dicty::CV;
use base 'dicty::Testing';
__PACKAGE__->table('cv');
__PACKAGE__->table_alias('cv');
dicty::CV->columns(All => qw/cv_id name/);

package main;

my ($auto_cv)           = dicty::CV->search( name => 'autocreated' );

print "Content-Type: text/html\n\n";
print $auto_cv->cv_id();



============================================

Eric Just
e-just-angj7XTnwNpXfO9P/[email protected]
dictyBase Programmer
Center for Genetic Medicine
Northwestern University
http://dictybase.org

============================================
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.