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.1 |
}; |
17 |
|
|
|
18 |
|
|
async { |
19 |
|
|
local $SIG{__WARN__} = sub { print "ok 5\n" }; |
20 |
|
|
{ |
21 |
|
|
local $SIG{__WARN__} = sub { print "ok 3\n" }; |
22 |
|
|
cede; |
23 |
root |
1.2 |
warn "-"; |
24 |
root |
1.1 |
} |
25 |
|
|
cede; |
26 |
root |
1.2 |
warn "-"; |
27 |
root |
1.1 |
}; |
28 |
|
|
|
29 |
|
|
cede; |
30 |
|
|
cede; |
31 |
|
|
cede; |
32 |
|
|
cede; |