X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FDispatcher.pm;h=9ac35815c26fbc7f2996f0d6507efe47dfad5948;hp=d3f25a3230ce0f219fb1d0eb2d7d82ef85772b42;hb=d2d007f49d5e9b06f0d1a6f38fc9ac8ac3306183;hpb=6e3dd95f237370a2824e5ecc1419eaed075f0279

diff --git a/lib/Catalyst/Dispatcher.pm b/lib/Catalyst/Dispatcher.pm
index d3f25a3..9ac3581 100644
--- a/lib/Catalyst/Dispatcher.pm
+++ b/lib/Catalyst/Dispatcher.pm
@@ -13,7 +13,6 @@ use Catalyst::DispatchType::Index;
 use Catalyst::Utils;
 use Text::SimpleTable;
 use Tree::Simple;
-use Tree::Simple::Visitor::FindByPath;
 use Class::Load qw(load_class try_load_class);
 use Encode 2.21 'decode_utf8';
 
@@ -439,7 +438,7 @@ C<$path> is '/foo/../bar' that is normalized to '/bar'.
 
 sub get_action_by_path {
     my ( $self, $path ) = @_;
-    $path =~s/[^\/]+\/\.\.\/// while $path=~m/\.\./;
+    $path =~s/[^\/]+\/\.\.\/// while $path=~m/[^\/]+\/\.\.\//;
     $path =~ s/^\///;
     $path = "/$path" unless $path =~ /\//;
     $self->_action_hash->{$path};