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=cf9825607a1cac636404115b7798c48ec6691f8b;hp=d3f25a3230ce0f219fb1d0eb2d7d82ef85772b42;hb=86de687df9175b001c3d65b53f9d055dfc8daf00;hpb=70355b30ef79949371133822aba1704d690a0192 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};