1 |
$|=1; |
2 |
print "1..5\n"; |
3 |
|
4 |
use Coro; |
5 |
|
6 |
async { |
7 |
my $t = eval "2"; |
8 |
print "ok $t\n"; |
9 |
cede; |
10 |
|
11 |
# a panic: restartop in this test can be caused by perl 5.8.8 not |
12 |
# properly handling constant folding (change 29976/28148) |
13 |
# (fixed in 5.10, 5.8.9) |
14 |
# we don't want to scare users, so disable it. |
15 |
$SIG{__DIE__} = undef if $] < 5.008009; |
16 |
|
17 |
print defined eval "1/0" ? "not ok" : "ok", " 4\n"; |
18 |
}; |
19 |
|
20 |
async { |
21 |
my $t = eval "3"; |
22 |
print "ok $t\n"; |
23 |
cede; |
24 |
print defined eval "die" ? "not ok" : "ok", " 5\n"; |
25 |
}; |
26 |
|
27 |
print "ok 1\n"; |
28 |
cede; |
29 |
cede; |
30 |
cede; |
31 |
cede; |
32 |
|