comparison scgi.t @ 212:a7cc4371f4ad

Tests: whitespace fixes.
author Maxim Dounin <mdounin@mdounin.ru>
date Fri, 23 Mar 2012 20:24:13 +0400
parents b8fdbc918280
children a01a53bcbf11
comparison
equal deleted inserted replaced
211:ee8fee3c4ae8 212:a7cc4371f4ad
113 ) 113 )
114 or die "Can't create listening socket: $!\n"; 114 or die "Can't create listening socket: $!\n";
115 115
116 my $scgi = SCGI->new($server, blocking => 1); 116 my $scgi = SCGI->new($server, blocking => 1);
117 my $count = 0; 117 my $count = 0;
118 118
119 while (my $request = $scgi->accept()) { 119 while (my $request = $scgi->accept()) {
120 $count++; 120 $count++;
121 $request->read_env(); 121 $request->read_env();
122 122
123 $request->connection()->print(<<EOF); 123 $request->connection()->print(<<EOF);