sub MakeAllDBHsForkSafe {
    my %drivers = DBI->installed_drivers;
    foreach my $drh (values %drivers) {
    	map { $_->{InactiveDestroy} = 1 } @{$_->{ChildHandles}};
    }
}