Markus Wichitill wrote:
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;
Thanks Markus, committed.
--
__________________________________________________________________
Stas Bekman JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide ---> http://perl.apache.org
mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org http://ticketmaster.com
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
