perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Markus Wichitill <ma...@gmx.de>
Subject [mp2] t/api/custom_response.t needs binmode
Date Fri, 13 Aug 2004 01:35:06 GMT
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: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message