i具有mod perl 2代码,该代码在Perlrequire加载的脚本中执行Apache::DBI->connect_on_init($dsn, $user, $passwd);
。
但是,在处理请求时,执行DBI->connect_cached($dsn, $user, $passwd)
正在创建一个附加的连接,而不是使用Child Init创建的连接。(使用DBI代替Apache :: DBI,因为该代码也用于非APACHE上下文中。)
我如何使用已缓存的连接?
设置$Apache::DBI::DEBUG=2
表明DBI创建的连接具有一个额外的属性集;将该属性添加到Connect_on_init调用中 缓存连接重复使用:
Apache::DBI->connect_on_init($dsn, $user, $passwd, {
dbi_connect_method => 'Apache::DBI::connect'
});