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);