Select Code to Download

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

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

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