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 do...@apache.org on 2002/05/13 05:25:31 UTC
cvs commit: modperl-2.0/t/apache read.t
dougm 02/05/12 20:25:31
Modified: t/apache read.t
Log:
print and syswrite dont mix well on win32
Revision Changes Path
1.4 +7 -5 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.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- read.t 17 Sep 2001 13:27:14 -0000 1.3
+++ read.t 13 May 2002 03:25:31 -0000 1.4
@@ -13,8 +13,6 @@
my $socket = Apache::TestRequest::vhost_socket('default');
-$socket->autoflush(1);
-
my $file = '../Makefile';
open(my $fh, $file) or die "open $file: $!";
@@ -23,9 +21,13 @@
close $fh;
my $size = length $data;
-print $socket "POST $location http/1.0\r\n";
-print $socket "Content-length: $size\r\n";
-print $socket "\r\n";
+for my $string ("POST $location http/1.0",
+ "Content-length: $size",
+ "")
+{
+ my $line = "$string\r\n";
+ syswrite($socket, $line, length $line);
+}
my $written = 0;
my $bufsiz = 240;