--- Coro/t/07_eval.t 2001/08/14 14:56:22 1.1 +++ Coro/t/07_eval.t 2002/01/04 02:42:10 1.2 @@ -14,7 +14,7 @@ my $t = eval "3"; print "ok $t\n"; cede; - print defined eval "require Coro::Nonexistent" ? "not ok" : "ok", " 5\n"; + print defined eval "die" ? "not ok" : "ok", " 5\n"; }; print "ok 1\n";