ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/t/13_diewarn.t
(Generate patch)

Comparing Coro/t/13_diewarn.t (file contents):
Revision 1.1 by root, Sun Oct 7 15:08:23 2007 UTC vs.
Revision 1.3 by root, Sat Oct 13 23:19:10 2007 UTC

… …
7async { 7async {
8 local $SIG{__WARN__} = sub { print "ok 4\n" }; 8 local $SIG{__WARN__} = sub { print "ok 4\n" };
9 { 9 {
10 local $SIG{__WARN__} = sub { print "ok 2\n" }; 10 local $SIG{__WARN__} = sub { print "ok 2\n" };
11 cede; 11 cede;
12 warn; 12 warn "-";
13 } 13 }
14 cede; 14 cede;
15 warn; 15 warn "-";
16 cede;
16}; 17};
17 18
18async { 19async {
19 local $SIG{__WARN__} = sub { print "ok 5\n" }; 20 local $SIG{__WARN__} = sub { print "ok 5\n" };
20 { 21 {
21 local $SIG{__WARN__} = sub { print "ok 3\n" }; 22 local $SIG{__WARN__} = sub { print "ok 3\n" };
22 cede; 23 cede;
23 warn; 24 warn "-";
24 } 25 }
25 cede; 26 cede;
26 warn; 27 warn "-";
27}; 28};
28 29
29cede; 30cede;
30cede; 31cede;
31cede; 32cede;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines