my $ret = $self->NEXT::write( $c, $buffer );
- DEBUG && warn "write: Wrote response ($ret bytes)\n";
-
if ( !defined $ret ) {
$self->{_write_error} = $!;
}
+ else {
+ DEBUG && warn "write: Wrote response ($ret bytes)\n";
+ }
return $ret;
}
if ($options->{background}) {
my $child = fork;
die "Can't fork: $!" unless defined($child);
- exit if $child;
+ return $child if $child;
}
my $restart = 0;