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

Comparing AnyEvent-MP/MP.pm (file contents):
Revision 1.39 by root, Fri Aug 7 23:21:48 2009 UTC vs.
Revision 1.41 by root, Sat Aug 8 21:56:29 2009 UTC

 sub mon {
    my ($noderef, $port) = split /#/, shift, 2;
    my $node = $NODE{$noderef} || add_node $noderef;
-   my $cb = @_ ? $_[0] : $SELF || Carp::croak 'mon: called with one argument only, but $SELF not set,';
+   my $cb = @_ ? shift : $SELF || Carp::croak 'mon: called with one argument only, but $SELF not set,';
    unless (ref $cb) {
       if (@_) {
          # send a kill info message
-         my (@msg) = @_;
+         my (@msg) = ($cb, @_);
          $cb = sub { snd @msg, @_ };
       } else {
          # simply kill other port
          my $port = $cb;
          $cb = sub { kil $port, @_ if @_ };
 The port ID of the newly created port is return immediately, and it is
 permissible to immediately start sending messages or monitor the port.
 After the port has been created, the init function is
 called. This function must be a fully-qualified function name
-(e.g. C<MyApp::Chat::Server::init>).
+(e.g. C<MyApp::Chat::Server::init>). To specify a function in the main
+program, use C<::name>.
 If the function doesn't exist, then the node tries to C<require>
 the package, then the package above the package and so on (e.g.
 C<MyApp::Chat::Server>, C<MyApp::Chat>, C<MyApp>) until the function
 exists or it runs out of package names.

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