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

##</code><code>##

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

##</code><code>##

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