| … | … | ||
|---|---|---|---|
| 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 |