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.2
Committed:	Mon Oct 8 02:50:24 2007 UTC (16 years, 8 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-4_11, rel-4_1
Changes since 1.1:	+4 -4 lines
Log Message:	* empty log message *
#	Content
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;