Hi,

here is a patch that solves a part of the problem:

---
Catalyst-Runtime-5.80014_02.orig/t/lib/TestAppEncoding/Controller/Root.pm
+++ Catalyst-Runtime-5.80014_02/t/lib/TestAppEncoding/Controller/Root.pm
@@ -8,7 +8,7 @@

 sub binary : Local {
     my ($self, $c) = @_;
-    $c->res->body(do { open(my $fh, '<', $c->path_to('..', '..',
'catalyst_130pix.gif')) or die $!; local $/ = undef; <$fh>; });
+    $c->res->body(do { open(my $fh, '<', $c->path_to('..', '..',
'catalyst_130pix.gif')) or die $!; binmode($fh); local $/ = undef;
<$fh>; });
 }

however it solves just failing test 3 in
t/aggregate/utf8_content_length.t but not failing test 6 (at least on my
Windows box). To be honest I have no idea what exactly is test 6 good for.

--
kmx

_______________________________________________
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

Reply via email to