[SVN] [123] Wait for server to be ready before returning

[matt]

Revision: 123
Author:   matt
Date:     2006-08-24 18:11:37 +0000 (Thu, 24 Aug 2006)

Log Message:
-----------
Wait for server to be ready before returning

Modified Paths:
--------------
    trunk/lib/AxKit2/Test.pm

Modified: trunk/lib/AxKit2/Test.pm
===================================================================
--- trunk/lib/AxKit2/Test.pm    2006-08-24 15:28:17 UTC (rev 122)
+++ trunk/lib/AxKit2/Test.pm    2006-08-24 18:11:37 UTC (rev 123)
@@ -69,14 +69,20 @@
     
     $self->setup_config($fh, $config);
     
+    pipe(READER, WRITER) || die "cannot create pipe: $!";
+    
     my $child = fork;
     die "fork failed" unless defined $child;
     if ($child) {
         $self->{child_pid} = $child;
+        close WRITER;
+        my $line = <READER>;
         return $self;
     }
     
     # child
+    close READER;
+    Danga::Socket->AddTimer(0, sub { print WRITER "READY\n"; close(WRITER); });
     AxKit2->run($filename);
     exit;
 }