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