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

Comparing AnyEvent-MP/MP/Kernel.pm (file contents):
Revision 1.111 by root, Sun Mar 25 20:50:49 2012 UTC vs.
Revision 1.112 by root, Tue Oct 2 13:58:07 2012 UTC

 # initialise names for non-networked operation
 {
    # ~54 bits, for local port names, lowercase $ID appended
    my $now = AE::now;
    $UNIQ =
       (join "",
          map $alnum[$_],
             $$ / 62 % 62,
             $$ % 62,
             (int $now        ) % 62,
    $cv->end;
    $cv
 }
+our @POST_CONFIGURE;
+# not yet documented
+sub post_configure(&) {
+   die "AnyEvent::MP::Kernel::post_configure must be called in void context" if defined wantarray;
+   push @POST_CONFIGURE, @_;
+   (shift @POST_CONFIGURE)->() while $NODE && @POST_CONFIGURE;
+}
 sub configure(@) {
    unshift @_, "profile" if @_ & 1;
    my (%kv) = @_;
    my $profile = delete $kv{profile};
          $BINDS{$bind} = $listener;
          push @$BINDS, $bind;
       }
    }
+   AE::log 9 => "running post config hooks and init.";
+   # might initialise Global, so need to do it before db_set
+   post_configure { };
    db_set "'l" => $NODE => $BINDS;
    AE::log 8 => "node listens on [@$BINDS].";
    # connect to all seednodes
    master_search;
    # save gobs of memory
    undef &_resolve;
    *configure = sub (@){ };
+   AE::log 9 => "starting services.";
    for (@{ $CONFIG->{services} }) {
       if (ref) {
          my ($func, @args) = @$_;
          (load_func $func)->(@args);

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