X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestAppEncoding%2FController%2FRoot.pm;h=72296ad3a1c407d2ee57a1a2414e4ac2de4b0319;hp=1c42bfa4ea93291826140b2a21a89f0f291770ad;hb=88e5a8b0c4d28e46b8ba6b6b9567063e57af9063;hpb=9868e0a0023cc8b598d60f150ea367e0056a65f3 diff --git a/t/lib/TestAppEncoding/Controller/Root.pm b/t/lib/TestAppEncoding/Controller/Root.pm index 1c42bfa..72296ad 100644 --- a/t/lib/TestAppEncoding/Controller/Root.pm +++ b/t/lib/TestAppEncoding/Controller/Root.pm @@ -10,8 +10,8 @@ sub binary : Local { my ($self, $c) = @_; $c->res->content_type('image/gif'); $c->res->body(do { - open(my $fh, '<', $c->path_to('..', '..', 'catalyst_130pix.gif')) or die $!; - binmode($fh); + open(my $fh, '<', $c->path_to('..', '..', 'catalyst_130pix.gif')) or die $!; + binmode($fh); local $/ = undef; <$fh>; }); } @@ -29,7 +29,7 @@ sub binary_utf8 : Local { sub utf8_non_ascii_content : Local { use utf8; my ($self, $c) = @_; - + my $str = 'ʇsʎlɐʇɐɔ'; # 'catalyst' flipped at http://www.revfad.com/flip.html ok utf8::is_utf8($str), '$str is in UTF8 internally';