ev_sigchld_override.pl

#!/usr/bin/env perl

use v5.10;
use warnings;
use strict;

use EV;
use AnyEvent;

# XXX comment this out, and it works
{ local $SIG{CHLD}; }

my $done = AnyEvent->condvar;

my $pid = fork;

die "fork(): $!" if not defined $pid;

if ($pid == 0) {
	exit 5;
}

my $w = AnyEvent->child(
	pid => $pid,
	cb  => sub {
		my ($pid, $status) = @_;
		say "pid $pid exited with status $status";
		$done->send;
	},
);

$done->recv;