You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2004/07/12 09:33:32 UTC
cvs commit: modperl-2.0/t/apache read.t
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;
}