stas 2004/07/12 00:33:32
Modified: t/apache read.t Log: style tweaks Revision Changes Path 1.7 +5 -6 modperl-2.0/t/apache/read.t Index: read.t =================================================================== RCS file: /home/cvs/modperl-2.0/t/apache/read.t,v retrieving revision 1.6 retrieving revision 1.7 diff -u -u -r1.6 -r1.7 --- read.t 30 Jan 2004 00:24:44 -0000 1.6 +++ read.t 12 Jul 2004 07:33:32 -0000 1.7 @@ -17,18 +17,17 @@ my $file = catfile Apache::Test::vars('serverroot'), "..", 'Makefile'; -open(my $fh, $file) or die "open $file: $!"; - +open my $fh, $file or die "open $file: $!"; my $data = join '', <$fh>; close $fh; + my $size = length $data; for my $string ("POST $location http/1.0", "Content-length: $size", - "") -{ + "") { my $line = "$string\r\n"; - syswrite($socket, $line, length $line); + syswrite $socket, $line, length($line); } my $written = 0; @@ -39,7 +38,7 @@ while ($written < length($data)) { my $remain = length($data) - $written; my $len = $remain > $bufsiz ? $bufsiz : $remain; - $written += syswrite($socket, $data, $len, $written); + $written += syswrite $socket, $data, $len, $written; sleep 1 if $sleeps-- > 0; }