Mercurial > hg > nginx-tests

comparison fastcgi_body2.t @ 925:6bb1f2ccd386

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: removed unused variables.
author Andrey Zelenkov <zelenkov@nginx.com>
date Fri, 13 May 2016 14:46:07 +0300
parents 907e89fba9c3
children e9064d691790
comparison
equal deleted inserted replaced
924:54680c434afa 925:6bb1f2ccd386
110 my ($port) = @_; 110 my ($port) = @_;
111 my $socket = FCGI::OpenSocket("127.0.0.1:$port", 5); 111 my $socket = FCGI::OpenSocket("127.0.0.1:$port", 5);
112 my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, 112 my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV,
113 $socket); 113 $socket);
114 114
115 my ($body, $len);
116
117 while( $request->Accept() >= 0 ) { 115 while( $request->Accept() >= 0 ) {
118 read(STDIN, $body, $ENV{'CONTENT_LENGTH'}); 116 read(STDIN, my $body, $ENV{'CONTENT_LENGTH'});
119 my $len = length $body; 117 my $len = length $body;
120 118
121 sleep 3 if $port == 8081; 119 sleep 3 if $port == 8081;
122 120
123 print <<EOF; 121 print <<EOF;