--- Coro/t/13_diewarn.t 2007/10/07 15:08:23 1.1 +++ Coro/t/13_diewarn.t 2007/10/13 23:19:10 1.3 @@ -9,10 +9,11 @@ { local $SIG{__WARN__} = sub { print "ok 2\n" }; cede; - warn; + warn "-"; } cede; - warn; + warn "-"; + cede; }; async { @@ -20,10 +21,10 @@ { local $SIG{__WARN__} = sub { print "ok 3\n" }; cede; - warn; + warn "-"; } cede; - warn; + warn "-"; }; cede;