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

Comparing AnyEvent-MP/MP/Global.pm (file contents):
Revision 1.5 by root, Sun Aug 16 05:02:24 2009 UTC vs.
Revision 1.6 by root, Mon Aug 17 03:33:18 2009 UTC

 }
 sub set_groups($$) {
    my ($noderef, $lreg) = @_;
-   use Data::Dumper; warn Dumper $lreg;#d#
+   while (my ($k, $v) = each %$lreg) {
+      push @{ $greg{$k} }, @$v;
+   }
 }
 =item $guard = register $port, $group
 Register the given (local!) port in the named global group C<$group>.
 # register port from any node
 sub _register {
    my ($port, $group) = @_;
    push @{ $greg{$group} }, $port;
+}
+# unregister port from any node
+sub _unregister {
+   my ($port, $group) = @_;
+   @{ $greg{$group} } = grep $_ ne $port, @{ $greg{$group} };
 }
 # unregister local port
 sub unregister {
    my ($port, $group) = @_;
    mon $port, sub {
       unreg_groups $noderef;
       delete $port{$noderef};
    };
    snd $port, connect_nodes => up_nodes;
-   snd $port, set => \%greg;
+   snd $port, set => \%lreg;
 }
 # other nodes connect via this
 sub connect {
    my ($version, $noderef) = @_;
             connect_node $_;
             start_node $_;
          }
       },
       set => sub {
-         unreg_groups $noderef;
          set_groups $noderef, shift;
       },
       reg1 => \&_register,
       reg0 => \&_unregister,
    ;

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