Coro/t/13_diewarn.t

BEGIN { $| = 1; print "1..5\n"; }

use Coro;

print "ok 1\n";

async {
   local $SIG{__WARN__} = sub { print "ok 4\n" };
   {
      local $SIG{__WARN__} = sub { print "ok 2\n" };
      cede;
      warn;
   }
   cede;
   warn;
};

async {
   local $SIG{__WARN__} = sub { print "ok 5\n" };
   {
      local $SIG{__WARN__} = sub { print "ok 3\n" };
      cede;
      warn;
   }
   cede;
   warn;
};

cede;
cede;
cede;
cede;
Revision:	1.1
Committed:	Sun Oct 7 15:08:23 2007 UTC (16 years, 9 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
Log Message:	* empty log message *
#	User	Rev	Content
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			warn;
13			}
14			cede;
15			warn;
16			};
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			warn;
24			}
25			cede;
26			warn;
27			};
28
29			cede;
30			cede;
31			cede;
32			cede;