BEGIN { $| = 1; print "1..3\n"; }
use AnyEvent::Fork::Early;
if (1) {
#d# win32 perls corrupt memory when forking early
print "ok 1\n";
$AnyEvent::Fork::EARLY = AnyEvent::Fork->new_exec;
} else {
print $AnyEvent::Fork::TEMPLATE == $AnyEvent::Fork::EARLY ? "" : "not ", "ok 1\n";
}
$AnyEvent::Fork::EARLY->eval ('syswrite STDOUT, "ok 2\n"; exit 0');
my $w = AE::io $AnyEvent::Fork::EARLY->[1], 0, my $cv = AE::cv;
$cv->recv;
print "ok 3\n";