Mercurial > hg > nginx-tests
comparison fastcgi.t @ 40:3325fa3f515c
Tests: avoid using \r\n.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Sat, 01 Nov 2008 16:13:02 +0300 |
parents | bd1a5e92d0c0 |
children | 1b3c22a87e5d |
comparison
equal
deleted
inserted
replaced
39:fc205d0e052d | 40:3325fa3f515c |
---|---|
69 my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, | 69 my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, |
70 $socket); | 70 $socket); |
71 | 71 |
72 my $count; | 72 my $count; |
73 while( $request->Accept() >= 0 ) { | 73 while( $request->Accept() >= 0 ) { |
74 print "Location: http://localhost:8080/redirect\r\n"; | 74 $count++; |
75 print "Content-type: text/html\r\n"; | 75 print <<EOF; |
76 print "\r\n"; | 76 Location: http://localhost:8080/redirect |
77 print "SEE-THIS\n"; | 77 Content-Type: text/html |
78 print ++$count; | 78 |
79 SEE-THIS | |
80 $count | |
81 EOF | |
79 } | 82 } |
80 | 83 |
81 FCGI::CloseSocket($socket); | 84 FCGI::CloseSocket($socket); |
82 } | 85 } |
83 | 86 |