1 |
root |
1.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 |
root |
1.4 |
|
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 |
root |
1.1 |
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 |
root |
1.2 |
print defined eval "die" ? "not ok" : "ok", " 5\n"; |
25 |
root |
1.1 |
}; |
26 |
|
|
|
27 |
|
|
print "ok 1\n"; |
28 |
|
|
cede; |
29 |
|
|
cede; |
30 |
root |
1.3 |
cede; |
31 |
|
|
cede; |
32 |
root |
1.1 |
|