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.2 by root, Mon Oct 8 02:50:24 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}; 16};
17 17
18async { 18async {
19 local $SIG{__WARN__} = sub { print "ok 5\n" }; 19 local $SIG{__WARN__} = sub { print "ok 5\n" };
20 { 20 {
21 local $SIG{__WARN__} = sub { print "ok 3\n" }; 21 local $SIG{__WARN__} = sub { print "ok 3\n" };
22 cede; 22 cede;
23 warn; 23 warn "-";
24 } 24 }
25 cede; 25 cede;
26 warn; 26 warn "-";
27}; 27};
28 28
29cede; 29cede;
30cede; 30cede;
31cede; 31cede;

Diff Legend

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