--- cvsroot/Coro/Coro.pm 2009/08/26 08:14:09 1.267 +++ cvsroot/Coro/Coro.pm 2009/10/01 23:16:27 1.268 @@ -69,8 +69,9 @@ package Coro; -use strict qw(vars subs); -no warnings "uninitialized"; +use common::sense; + +use Carp (); use Guard (); @@ -155,8 +156,8 @@ =cut $idle = sub { - require Carp; - Carp::croak ("FATAL: deadlock detected"); + warn "oi\n";#d# + Carp::confess ("FATAL: deadlock detected"); }; # this coro is necessary because a coro