You goofed and forgot to binmode IMAGE or die "Couldn't binmode image". Always do that when working with binary data. You also never close FH. If you meant to just return the contents of the file then you're better off writing that as a plain read - you're forcing perl to jump through hoops.
# Ok, could be better local $/; open ( FH , '/path/to/some/image' ) or confess $!; binmode FH or confess $!; my $image = readline *FH; close FH or confess $!; return $image; # Better open ( FH , '/path/to/some/image' ) or confess $!; binmode FH or confess $!; my $image; read FH, $image, -s FH; close FH or confess $!; return $image; # Best open ( FH , '/path/to/some/image' ) or confess $!; my $image; read FH, $image, -s FH; close FH or confess $!; return \ $image;
In reply to Re: CGI::Application + mod_perl =|!= memory leak
by diotalevi
in thread CGI::Application + mod_perl =|!= memory leak
by submersible_toaster
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |