… | … | ||
---|---|---|---|
9 | my $pid = fork; | 9 | my $pid = fork; |
10 | 10 | ||
11 | defined $pid or die "unable to fork"; | 11 | defined $pid or die "unable to fork"; |
12 | 12 | ||
13 | # work around Tk bug until it has been fixed. | 13 | # work around Tk bug until it has been fixed. |
14 | my $timer = AnyEvent->timer (after => 2, cb => sub { }); | 14 | #my $timer = AnyEvent->timer (after => 2, cb => sub { }); |
15 | 15 | ||
16 | my $cv = AnyEvent->condvar; | 16 | my $cv = AnyEvent->condvar; |
17 | 17 | ||
18 | unless ($pid) { | 18 | unless ($pid) { |
19 | print "ok 2\n"; | 19 | print "ok 2\n"; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |