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

Comparing AnyEvent-MP/MP/Kernel.pm (file contents):
Revision 1.48 by root, Tue Sep 8 13:46:25 2009 UTC vs.
Revision 1.49 by root, Wed Sep 9 01:47:01 2009 UTC

 sub snd(@) {
    my ($nodeid, $portid) = split /#/, shift, 2;
    warn "SND $nodeid <- " . eval { JSON::XS->new->encode (\@_) } . "\n" if TRACE && @_;#d#
+   defined $nodeid #d#UGLY
+      or Carp::croak "'undef' is not a valid node ID/port ID";
    ($NODE{$nodeid} || add_node $nodeid)
       ->{send} (["$portid", @_]);
 }
 =item $is_local = port_is_local $port
    # on $NODE, we artificially delay... (for spawn)
    # this is very ugly - maybe we should simply delay ALL messages,
    # to avoid deep recursion issues. but that's so... slow...
    $AnyEvent::MP::Node::Self::DELAY = 1
       if $nodeid ne $NODE;
+   defined $nodeid #d#UGLY
+      or Carp::croak "'undef' is not a valid node ID/port ID";
    ($NODE{$nodeid} || add_node $nodeid)->send (["", @_]);
 }
 =item snd_on $node, @msg
 Returns the node IDs of all nodes currently known to this node, including
 itself and nodes not currently connected.
 =cut
-sub known_nodes {
+sub known_nodes() {
    map $_->{id}, values %NODE
 }
 =item up_nodes
 Return the node IDs of all nodes that are currently connected (excluding
 the node itself).
 =cut
-sub up_nodes {
+sub up_nodes() {
    map $_->{id}, grep $_->{transport}, values %NODE
 }
 =item $guard = mon_nodes $callback->($nodeid, $is_up, @reason)

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