http://www.perlmonks.org?node_id=831179


in reply to Catalyst::Request::Upload inside-out-object weirdness

It looks as though maybe in Catalyst::Engine::prepare_uploads, this:

my $headers = HTTP::Headers->new( %{ $upload->{headers} } +); my $u = Catalyst::Request::Upload->new ( size => $upload->{size}, type => $headers->content_type, headers => $headers, tempname => $upload->{tempname}, filename => $upload->{filename}, );

is somehow creating this:

uploads => { SourceFile_1 => bless({ "/tmp/J8OcVSq1Kq" => "filename", "HTTP::Headers=HASH(0x40ec828)" => "temp +name", "aaa.jpg" => undef, "charset=utf-8; Content-Transfer-Encodin +g: binary" => "headers", size => 374205, type => "image/jpeg", }, "Catalyst::Request::Upload"), },

which seems to suggest maybe the problem is with HTTP::Headers...