comparison fastcgi.t @ 44:daa295331acd

Tests: don't bind backend daemons to *, use 127.0.0.1 instead.
author Maxim Dounin <mdounin@mdounin.ru>
date Sun, 02 Nov 2008 03:13:49 +0300
parents 1b3c22a87e5d
children d68b85def521
comparison
equal deleted inserted replaced
43:05175c8b88dc 44:daa295331acd
65 unlike(http_head('/'), qr/SEE-THIS/, 'no data in HEAD'); 65 unlike(http_head('/'), qr/SEE-THIS/, 'no data in HEAD');
66 66
67 ############################################################################### 67 ###############################################################################
68 68
69 sub fastcgi_daemon { 69 sub fastcgi_daemon {
70 my $socket = FCGI::OpenSocket(':8081', 5); 70 my $socket = FCGI::OpenSocket('127.0.0.1:8081', 5);
71 my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, 71 my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV,
72 $socket); 72 $socket);
73 73
74 my $count; 74 my $count;
75 while( $request->Accept() >= 0 ) { 75 while( $request->Accept() >= 0 ) {