/[Frey]/trunk/lib/Frey/Test.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Test.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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  }  }
Legend:
Removed from v.937  
changed lines
  Added in v.938
  ViewVC Help
Powered by ViewVC 1.1.26