File: 01_early.t

package info (click to toggle)
libanyevent-fork-perl 1.32-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 172 kB
  • sloc: perl: 248; makefile: 2
file content (18 lines) | stat: -rw-r--r-- 457 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
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";