--- AnyEvent-MP/MP.pm 2009/08/31 10:07:04 1.72 +++ AnyEvent-MP/MP.pm 2009/08/31 11:08:25 1.73 @@ -23,12 +23,12 @@ snd @msg_with_first_element_being_a_port; # creating/using ports, the simple way - my $simple_port = port { my @msg = @_; 0 }; + my $simple_port = port { my @msg = @_ }; # creating/using ports, tagged message matching my $port = port; - rcv $port, ping => sub { snd $_[0], "pong"; 0 }; - rcv $port, pong => sub { warn "pong received\n"; 0 }; + rcv $port, ping => sub { snd $_[0], "pong" }; + rcv $port, pong => sub { warn "pong received\n" }; # create a port on another node my $port = spawn $node, $initfunc, @initdata;