| Subject: | A lot of errors "Exiting subroutine via next" |
In my error log I have a lot of error messages like this:
"Exiting subroutine via next at /usr/share/perl5/FCGI/ProcManager.pm line 348."
Here is the sub that is abound line 348 in that file:
sub pm_wait {
my ($this) = self_or_default(@_);
# wait for the next server to die.
next if (my $pid = wait()) < 0;
# notify when one of our servers have died.
delete $this->{PIDS}->{$pid} and
$this->pm_notify("server (pid $pid) exited with status $?");
return $pid;
}
It is absolutely clear why I have this error: the next command is used to exit the sub pm_wait. I'm sure that it should be
fixed and the line need to be:
return if (my $pid = wait()) < 0;