Revision history for Catalyst-Controller-WrapCGI
+0.0037 2009-05-06 20:07:00
+ - pass captures in SCRIPT_NAME (caelum)
+
0.0036 2009-05-05 19:45:20
- fix deps (caelum)
=head1 VERSION
-Version 0.014
+Version 0.015
=cut
-our $VERSION = '0.014';
+our $VERSION = '0.015';
=head1 SYNOPSIS
=head1 VERSION
-Version 0.0036
+Version 0.0037
=cut
-our $VERSION = '0.0036';
+our $VERSION = '0.0037';
=head1 SYNOPSIS
PATH_INFO => $path_info,
# eww, this is likely broken:
FILEPATH_INFO => '/'.$c->action.$path_info,
- SCRIPT_NAME => $c->uri_for($c->action)->path
+ SCRIPT_NAME => $c->uri_for($c->action, $c->req->captures)->path
);
{
});
}
-sub test_script_name : Path('/cgi-bin/test_scriptname.cgi') {
+sub test_script_name_root : Chained('/') PathPart('cgi-bin') CaptureArgs(1) {}
+
+sub test_script_name : Chained('test_script_name_root') PathPart('test_scriptname.cgi') Args {
my ($self, $c) = @_;
$self->cgi_to_response($c, sub {
is($response->content, '/test_filepath_info/path/%2Finfo',
'FILEPATH_INFO is correct (maybe)');
-$response = request '/cgi-bin/test_scriptname.cgi/foo/bar';
-is($response->content, '/cgi-bin/test_scriptname.cgi',
+$response = request '/cgi-bin/mtfnpy/test_scriptname.cgi/foo/bar';
+is($response->content, '/cgi-bin/mtfnpy/test_scriptname.cgi',
'SCRIPT_NAME is correct');