Tis file documents the revision history for Perl extension Catalyst.
5.50
+ - Added upload parameters back into $c->req->params.
- Added multiple paths support to dispatcher
- Fixed bug in req->path where changing the path added a trailing
slash.
push @uploads, $u;
}
$c->request->uploads->{$name} = @uploads > 1 ? \@uploads : $uploads[0];
+
+ # support access to the filename as a normal param
+ my @filenames = map { $_->{filename} } @uploads;
+ $c->request->parameters->{$name}
+ = @filenames > 1 ? \@filenames : $filenames[0];
}
}
use FindBin;
use lib "$FindBin::Bin/../../lib";
-use Test::More tests => 49;
+use Test::More tests => 52;
use Catalyst::Test 'TestApp';
use Catalyst::Request;
is( $upload->type, $part->content_type, 'Upload Content-Type' );
is( $upload->size, length( $part->content ), 'Upload Content-Length' );
+ # make sure upload is accessible via legacy params->{$file}
+ is( $creq->{parameters}->{ $upload->filename }, $upload->filename, 'legacy param method ok' );
+
ok( ! -e $upload->tempname, 'Upload temp file was deleted' );
}
}