On Sep 19, 2007, at 5:57 PM, Andreas Koenig via RT wrote:
Show quoted text>
> Wed Sep 19 20:57:15 2007: Request 29502 was acted upon.
> Transaction: Ticket created by ANDK
> Queue: WWW-Mechanize-Pluggable
> Subject: kill KILL=>$foo suspicious
> Broken in: 1.03
> Severity: Critical
> Owner: Nobody
> Requestors: ANDK@cpan.org
> Status: new
> Ticket <URL:
http://rt.cpan.org/Ticket/Display.html?id=29502 >
>
>
> I found this code in t/local/back.t:
>
> kill KILL=>$pid404; # Extreme prejudice intended;
>
> I wonder how this is suppoesed to work and when it ever works.
Looking at the code in context (I had forgotten this section), what
this appears to be trying to do is kill the HTTP::Daemon process if
the fork can't or doesn't work. I'm adding a defined() test to the
kill(), so it reads
kill KILL=>$pid404 if defined $pid404;
The preceeding fork() should set $pid404 is a fork is possible. If it
wasn't, the $pid404 will be undefined, and we don't try to kill the
process.
--- Joe M.