Почему процесс apache mod_perl превращается в зомби?

Мое первое подозрение состоит в том, что вы действительно разветвляетесь, но, возможно, вы этого не понимаете. Можно ли включить свой код? Помните, что любые system или `` вызовы разветвляются. Это может легко происходить внутри модуля CPAN, даже если вы этого не осознаёте. Есть полезная информация о mod_perl и разветвлении (в том числе о том, как создаются зомби и как их избежать) здесь.

Обновление: попробуйте добавить это в свою конфигурацию:

# Monitor apache server status
ExtendedStatus On
<VirtualHost 127.0.0.1:80>
    <Location /server-status>
        SetHandler server-status
        Order deny,allow
        Deny from all
        Allow from 127.0.0.1
    </Location>
</VirtualHost>

Затем измените Allow from на свой IP-адрес, после чего вы сможете посетить http://yourdomain.com/server-status и получите страницу со сводной информацией об apache. Попробуйте сделать это, когда увидите одного из зомби, и посмотрите, что, по мнению apache, делает этот процесс.

Я тоже это вижу с помощью моего очень простого модуля mod_perl 2. Я не делаю ничего форк, просто записываю строку в клиентский сокет и возвращаю ОК. И все же на моей виртуальной машине CentOS 5.5 Linux появляется несуществующий процесс, а затем исчезает. Вот мой исходный код, и вы можете протестировать его с помощью "telnet yourhost 843" и нажатия ENTER:

package SocketPolicy;

# Run: semanage port -a -t http_port_t -p tcp 843
# And add following lines to the httpd.conf
# Listen 843
# <VirtualHost _default_:843>
#       PerlModule                   SocketPolicy
#       PerlProcessConnectionHandler SocketPolicy
# </VirtualHost>

use strict;
use warnings FATAL => 'all';
use APR::Const(-compile => 'SO_NONBLOCK');
use APR::Socket();
use Apache2::ServerRec();
use Apache2::Connection();
use Apache2::Const(-compile => qw(OK DECLINED));

use constant POLICY =>
qq{<?xml version="1.0"?>
<!DOCTYPE cross-domain-policy SYSTEM
"http://www.adobe.com/xml/dtds/cross-domain-policy.dtd">

<cross-domain-policy>
<allow-access-from domain="*" to-ports="8080"/>
</cross-domain-policy>
\0};

sub handler {
        my $conn   = shift;
        my $socket = $conn->client_socket();
        my $offset = 0;

        # set the socket to the blocking mode
        $socket->opt_set(APR::Const::SO_NONBLOCK => 0);

        do {
                my $nbytes = $socket->send(substr(POLICY, $offset), length(POLICY) - $offset);
                # client connection closed or interrupted
                return Apache2::Const::DECLINED unless $nbytes;
                $offset += $nbytes;
        } while ($offset < length(POLICY));

        my $slog = $conn->base_server()->log();
        $slog->warn('served socket policy to: ', $conn->remote_ip());
        return Apache2::Const::OK;
}

1;