Logged In: NO

DBi.patch:
7a8,10
> my $pid = $$; # set pid
> my %prev_params;
>
14a18
> %prev_params = %p; # save parameters for reconnect
63a68,78
> sub _reconnect {
> my $self = shift;
>
> $self->{dbh}->{InactiveDestroy} = 1;
> $self->{dbh} = undef;
>
> # re-initialize db connection
> $self->_init(%prev_params);
>
> $self->{dbh}->{InactiveDestroy} = 0;
> }
78a94,99
> # reconnect if called by forked process
> if ($pid != $$) {
> $self->_reconnect();
> $pid = $$;
> }
>