| Subject: | Use of uninitialized value in hash element at /usr/local/lib/perl5/site_perl/5.8.1/Net/Server/PreFork.pm line 443 |
The following code in Prefork.pm has errors:
### periodically make sure children are alive
if( $time - $prop->{last_checked_for_dead} > $prop->{check_for_dead} ){
$prop->{last_checked_for_dead} = $time;
foreach (keys %{ $prop->{children} }){
### see if the child can be killed
if( ! kill(0,$_) ){
$self->delete_child($_);
$prop->{tally}->{ $prop->{children}->{status} } --;
}
}
}
should be:
### periodically make sure children are alive
if( $time - $prop->{last_checked_for_dead} > $prop->{check_for_dead} ){
$prop->{last_checked_for_dead} = $time;
foreach (keys %{ $prop->{children} }){
### see if the child can be killed
if( ! kill(0,$_) ){
$self->delete_child($_);
$prop->{tally}->{ $prop->{children}->{$_}->{status} } --;
}
}
}