1 |
root |
1.1 |
BEGIN { $| = 1; print "1..5\n"; } |
2 |
|
|
|
3 |
|
|
use Coro; |
4 |
|
|
|
5 |
|
|
print "ok 1\n"; |
6 |
|
|
|
7 |
|
|
async { |
8 |
|
|
local $SIG{__WARN__} = sub { print "ok 4\n" }; |
9 |
|
|
{ |
10 |
|
|
local $SIG{__WARN__} = sub { print "ok 2\n" }; |
11 |
|
|
cede; |
12 |
root |
1.2 |
warn "-"; |
13 |
root |
1.1 |
} |
14 |
|
|
cede; |
15 |
root |
1.2 |
warn "-"; |
16 |
root |
1.3 |
cede; |
17 |
root |
1.1 |
}; |
18 |
|
|
|
19 |
|
|
async { |
20 |
|
|
local $SIG{__WARN__} = sub { print "ok 5\n" }; |
21 |
|
|
{ |
22 |
|
|
local $SIG{__WARN__} = sub { print "ok 3\n" }; |
23 |
|
|
cede; |
24 |
root |
1.2 |
warn "-"; |
25 |
root |
1.1 |
} |
26 |
|
|
cede; |
27 |
root |
1.2 |
warn "-"; |
28 |
root |
1.1 |
}; |
29 |
|
|
|
30 |
|
|
cede; |
31 |
|
|
cede; |
32 |
|
|
cede; |
33 |
|
|
cede; |