X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FDispatcher.pm;h=cf9825607a1cac636404115b7798c48ec6691f8b;hb=b4ed26ff40a4cad56a4b088ba0cf006bfde8df82;hp=d3f25a3230ce0f219fb1d0eb2d7d82ef85772b42;hpb=6e3dd95f237370a2824e5ecc1419eaed075f0279;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Dispatcher.pm b/lib/Catalyst/Dispatcher.pm index d3f25a3..cf98256 100644 --- a/lib/Catalyst/Dispatcher.pm +++ b/lib/Catalyst/Dispatcher.pm @@ -439,7 +439,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};