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;