Mailing-List: contact dev-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (athena.apache.org: domain of jzhao@cidc.com designates
 64.206.6.10 as permitted sender)
From: Jasper Zhao <jzhao@cidc.com>
To: "dev@perl.apache.org" <dev@perl.apache.org>
Date: Wed, 13 Jul 2011 16:08:40 -0400
Subject: [mp2] To get APR::Pool::cleanup_for_exec officially supported
Thread-Topic: [mp2] To get APR::Pool::cleanup_for_exec officially supported
Thread-Index: AcxBlAZfDEsUd8itQHO/mVgDUa/ZTQ==
Message-ID: 
 <135254865ECCFC4ABE131CAC9288E9A88E0F891577@CORP-EXCH.gvcorp.grandvirtual.com>
Accept-Language: en-US
Content-Language: en-US
acceptlanguage: en-US
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
MIME-Version: 1.0

Dear mod_perl2 Developers,

As you know when you want to spawn a sub-process and execute an external pr=
ogram you can use 'spawn_proc_prog' defined in Apache2::SubProcess. However=
, if you want to spawn a sub-process and call a Perl subroutine, the sub-pr=
ocess won't release the listening port therefore you cannot restart your ht=
tpd daemon if the spawned process is still running.

APR::Pool::cleanup_for_exec comes to rescue. It does some cleanup tasks inc=
luding releasing the listening port. See the code snippet below. The method=
 works properly. However in the mp2 document at the link below, it says thi=
s method is an unsupported API. Is it possible to get it officially support=
ed?
http://perl.apache.org/docs/2.0/api/APR/Pool.html#C_cleanup_for_exec_

sub fork_and_call_sub
{
    my $pid =3D fork();
    if(!defined $pid) {
        die("Cannot fork: $!")=20
    }
    if($pid) {
        #Parent process
        return;
    }
     # Child goes here
      close STDIN;
      close STDOUT;
      open STDIN, '/dev/null';
      open STDOUT,'>/dev/null';
   =20
      setsid;
      APR::Pool::cleanup_for_exec();
      call_time_consuming_method();
      CORE::exit(0);
 }

Jasper

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org