--- Coro/Coro.pm	2006/12/02 18:01:30	1.94
+++ Coro/Coro.pm	2006/12/04 03:48:16	1.96
@@ -43,7 +43,7 @@
 our $main;    # main coroutine
 our $current; # current coroutine
 
-our $VERSION = '3.0';
+our $VERSION = '3.01';
 
 our @EXPORT = qw(async cede schedule terminate current unblock_sub);
 our %EXPORT_TAGS = (
@@ -130,8 +130,8 @@
 =cut
 
 $idle = sub {
-   print STDERR "FATAL: deadlock detected\n";
-   exit (51);
+   require Carp;
+   Carp::croak ("FATAL: deadlock detected");
 };
 
 # this coroutine is necessary because a coroutine