dougm 00/09/27 13:04:01 Modified: t/modules request.t Log: binmode for win32 Revision Changes Path 1.10 +1 -0 modperl/t/modules/request.t Index: request.t =================================================================== RCS file: /home/cvs/modperl/t/modules/request.t,v retrieving revision 1.9 retrieving revision 1.10 diff -u -r1.9 -r1.10 --- request.t 2000/08/31 05:54:11 1.9 +++ request.t 2000/09/27 20:04:00 1.10 @@ -125,6 +125,7 @@ my $lines = 0; local *FH; open FH, $file or die "open $file $!"; + binmode FH; #for win32 ++$lines while defined <FH>; close FH; my(@headers);