if ($listen) {
$options->{manager} ||= "FCGI::ProcManager";
$options->{nproc} ||= 1;
- $options->{title} ||= "perl-fcgi-pm [$class]";
+ $options->{proc_title} ||= "perl-fcgi-pm [$class]";
$self->daemon_fork() if $options->{detach};
{
n_processes => $options->{nproc},
pid_fname => $options->{pidfile},
- pm_title => $options->{title},
+ pm_title => $options->{proc_title},
}
);
sub write {
my ( $self, $c, $buffer ) = @_;
+ # ->write will be called once with the body, even in a redirect (and
+ # in that case, the body is undef)
+ $buffer = '' if !defined $buffer;
+
unless ( $self->_prepared_write ) {
$self->prepare_write($c);
$self->_prepared_write(1);