[mp2] t/api/custom_response.t needs binmode

[Markus Wichitill]

t/api/custom_response.t needs binmode to succeed on Win32:

Index: t/api/custom_response.t
===================================================================
RCS file: /home/cvspublic/modperl-2.0/t/api/custom_response.t,v
retrieving revision 1.2
diff -u -r1.2 custom_response.t
--- t/api/custom_response.t     3 Aug 2004 16:22:44 -0000       1.2
+++ t/api/custom_response.t     13 Aug 2004 01:21:26 -0000
@@ -20,7 +20,7 @@
     qw(api custom_response.txt);

 open my $fh, $file or die "Can't open $file: $!";
-my $data = do { local $/; <$fh> };
+my $data = do { binmode $fh; local $/; <$fh> };
 close $fh;

 plan tests => 4, need_lwp;

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]