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