Parent Directory | Revision Log | Patch
revision 937 by dpavlin, Wed Nov 5 18:32:16 2008 UTC | revision 938 by dpavlin, Tue Jan 6 13:00:20 2009 UTC | |
---|---|---|
# | Line 46 sub start_server { | Line 46 sub start_server { |
46 | $self->_fork unless $kid_out; | $self->_fork unless $kid_out; |
47 | my $host = '127.0.0.1:' . $ENV{FREY_PORT}; | my $host = '127.0.0.1:' . $ENV{FREY_PORT}; |
48 | warn "## waiting for $host to start"; | warn "## waiting for $host to start"; |
49 | while ( ! IO::Socket::INET->new( $host ) ) { | if ( ! IO::Socket::INET->new( $host ) ) { |
50 | warn "."; | die "can't start server on $host"; |
sleep 1; | ||
51 | } | } |
52 | return "http://$host"; | return "http://$host"; |
53 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |