--- cvsroot/Coro/eg/bench	2001/07/21 18:21:45	1.6
+++ cvsroot/Coro/eg/bench	2001/07/21 19:53:29	1.7
@@ -10,14 +10,10 @@
 
 $a = bless {}, main::;
 
-
-sub a {
-}
-
 sub b {
    my ($self) = shift;
-   my $num = shift;
-   return $num+1;
+   $self->{b} = shift if @_;
+   $self->{b};
 }
 
 $b = async {