cvs commit: modperl-2.0/t/api custom_response.t

[stas]

stas        2004/08/12 18:56:49

  Modified:    t/api    custom_response.t
  Log:
  needs binmode to succeed on Win32
  Submitted by: Markus Wichitill <[EMAIL PROTECTED]>
  
  Revision  Changes    Path
  1.3       +1 -1      modperl-2.0/t/api/custom_response.t
  
  Index: custom_response.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/api/custom_response.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -u -r1.2 -r1.3
  --- custom_response.t 3 Aug 2004 16:22:44 -0000       1.2
  +++ custom_response.t 13 Aug 2004 01:56:49 -0000      1.3
  @@ -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;