[Catalyst-commits] r12643 - Catalyst-Runtime/5.80/trunk/t/lib/TestAppEncoding/Controller

dandv at dev.catalyst.perl.org dandv at dev.catalyst.perl.org
Thu Jan 14 09:23:51 GMT 2010


Author: dandv
Date: 2010-01-14 09:23:50 +0000 (Thu, 14 Jan 2010)
New Revision: 12643

Modified:
   Catalyst-Runtime/5.80/trunk/t/lib/TestAppEncoding/Controller/Root.pm
Log:
Cosmetic: wrapped long code line

Modified: Catalyst-Runtime/5.80/trunk/t/lib/TestAppEncoding/Controller/Root.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/TestAppEncoding/Controller/Root.pm	2010-01-14 09:08:07 UTC (rev 12642)
+++ Catalyst-Runtime/5.80/trunk/t/lib/TestAppEncoding/Controller/Root.pm	2010-01-14 09:23:50 UTC (rev 12643)
@@ -8,7 +8,11 @@
 
 sub binary : Local {
     my ($self, $c) = @_;
-    $c->res->body(do { open(my $fh, '<', $c->path_to('..', '..', 'catalyst_130pix.gif')) or die $!; binmode($fh); local $/ = undef; <$fh>; });
+    $c->res->body(do { 
+        open(my $fh, '<', $c->path_to('..', '..', 'catalyst_130pix.gif')) or die $!; 
+        binmode($fh); 
+        local $/ = undef; <$fh>;
+    });
 }
 
 sub binary_utf8 : Local {




More information about the Catalyst-commits mailing list