--- cvsroot/Coro/Coro.pm 2001/09/24 02:25:44 1.37 +++ cvsroot/Coro/Coro.pm 2001/10/03 01:09:56 1.38 @@ -40,7 +40,7 @@ use base Exporter; -$VERSION = 0.5; +$VERSION = 0.51; @EXPORT = qw(async cede schedule terminate current); %EXPORT_TAGS = ( @@ -118,7 +118,8 @@ # this coroutine is necessary because a coroutine # cannot destroy itself. my @destroy; -my $manager = new Coro sub { +my $manager; +$manager = new Coro sub { while() { # by overwriting the state object with the manager we destroy it # while still being able to schedule this coroutine (in case it has