在mod\u perl2下,使用fork和Apache::DBI的安全方法是什么?

我在子进程中使用Apache::DBI时遇到了一个问题。问题是Apache::DBI为所有使用它的进程提供了一个句柄,因此

DBD::mysql::db selectall\u arrayref 失败:命令不同步;你 此时无法运行此命令 /usr/local/www/apache22/data/test-fork.cgi

重新连接没有帮助,因为Apache::DBI在所有进程中重新连接,正如我理解的以下错误

错误,无法完成

错误消息:DBD驱动程序尚未启动 在 /usr/local/lib/perl5/site\u perl/5.8.9/Apache/DBI.pm 第283行,

这是原产地代码:

use Data::Dumper 'Dumper';
use DBI ();

my $dbh = DBI->connect($dsn, $username, $password, {
        RaiseError => 1,
        PrintError => 0,
    });
my $file = "/tmp/test-fork.tmp";

my $pid = fork;
defined $pid or die "fork: $!";

if ($pid) {
    my $rows = eval { $dbh->selectall_arrayref('SELECT SLEEP(1)') };

    print "Content-Type: text/plain\n\n";
    print $rows ? "parent: " . Dumper($rows) : $@;
}
else {
    my $rows = eval { $dbh->selectall_arrayref('SELECT SLEEP(1)') };

    open FH, '>', $file or die "$file: $!";
    print FH $rows ? "child: " . Dumper($rows) : $@;
    close FH;
}

我用于重新连接的代码:

...
else {
    $dbh->disconnect;
    $dbh = DBI->connect($dsn, $username, $password, $attrs);
    my $rows = eval { $dbh->selectall_arrayref('SELECT SLEEP(1)') };

    open FH, '>', $file or die "$file: $!";
    print FH $rows ? "child: " . Dumper($rows) : $@;
    close FH;
}