--- Coro/Coro.pm 2001/07/03 05:05:45 1.4 +++ Coro/Coro.pm 2001/07/10 01:43:21 1.5 @@ -37,7 +37,7 @@ package Coro; BEGIN { - $VERSION = 0.01; + $VERSION = 0.03; require XSLoader; XSLoader::load Coro, $VERSION; @@ -104,6 +104,9 @@ my $prev; +# I call the _transfer function from a pelr function +# because that way perl saves all important things on +# the stack. sub resume { $prev = $current; $current = $_[0]; _transfer($prev, $current);