[ViewVC] Diff of: cvs/AnyEvent-MP/MP.pm

Comparing AnyEvent-MP/MP.pm (file contents):
Revision 1.6 by root, Sat Aug 1 10:02:33 2009 UTC vs.
Revision 1.7 by root, Sat Aug 1 15:04:30 2009 UTC

          && &{$_->[0]}
          && undef $_;
    }
    for (@{ $port->{any} }) {
-      $_ &&           [@_[0..$#{$_->[1]}]] ~~ $_->[1]
+      $_ && [@_[0..$#{$_->[1]}]] ~~ $_->[1]
          && &{$_->[0]}
          && undef $_;
    }
 }
 }
 $NODE{""} = new AnyEvent::MP::Node::Self noderef => $NODE;
 _new_port "";
+=item devnull => ...
+Generic data sink/CPU heat conversion.
+=cut
+rcv "", devnull => sub { () };
 =item relay => $port, @msg
 Simply forwards the message to the given port.
 =cut
-rcv "", relay => \&snd;
+rcv "", relay => sub { \&snd; () };
 =item eval => $string[ @reply]
 Evaluates the given string. If C<@reply> is given, then a message of the
 form C<@reply, $@, @evalres> is sent.
 rcv "", eval => sub {
    my (undef, $string, @reply) = @_;
    my @res = eval $string;
    snd @reply, "$@", @res if @reply;
+   ()
 };
 =item time => @reply
 Replies the the current node time to C<@reply>.
    snd $NODE, time => $myport, timereply => 1, 2;
    # => snd $myport, timereply => 1, 2, <time>
 =cut
-rcv "", time  => sub { shift; snd @_, AE::time };
+rcv "", time  => sub { shift; snd @_, AE::time; () };
 =back
 =head1 SEE ALSO

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines