# This file documents the revision history for Perl extension Catalyst.
+5.7014 ---
+ - Fix regression for relative uri_for arguments after a forward()
+ introduced in 5.7013 (Peter Karman)
+
5.7013 2008-05-16 18:20:00
- Provide backwards compatability methods in Catalyst::Stats
- Fix subdirs for scripts that run in subdirs more than one level deep.
qw/counter request response state action stack namespace stats/
);
-attributes->import( __PACKAGE__, \&namespace, 'lvalue' );
-
sub depth { scalar @{ shift->stack || [] }; }
# Laziness++
# Remember to update this in Catalyst::Runtime as well!
-our $VERSION = '5.7013';
+our $VERSION = '5.7014';
sub import {
my ( $class, @arguments ) = @_;
sub dispatch { # Execute ourselves against a context
my ( $self, $c ) = @_;
- local $c->{namespace} = $self->namespace;
return $c->execute( $self->class, $self );
}
# Remember to update this in Catalyst as well!
-our $VERSION='5.7013';
+our $VERSION='5.7014';
=head1 NAME
$c->forward(qw/TestApp class_forward_test_method/);
}
+sub forward_to_uri_check : Local {
+ my ( $self, $c ) = @_;
+ $c->forward( 'Action::ForwardTo', 'uri_check' );
+}
+
1;
BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 1; }
-use Test::More tests => 47 * $iters;
+use Test::More tests => 50 * $iters;
use Catalyst::Test 'TestApp';
if ( $ENV{CAT_BENCHMARK} ) {
'Test Method' );
}
+ # test uri_for re r7385
+ {
+ ok( my $response = request(
+ 'http://localhost/action/forward/forward_to_uri_check'),
+ 'forward_to_uri_check request');
+
+ ok( $response->is_success, 'forward_to_uri_check successful');
+ is( $response->content, 'http://localhost/action/forward/foo/bar',
+ 'forward_to_uri_check correct namespace');
+ }
+
}