projects
/
catagits/Catalyst-Runtime.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Merge branch 'abort-chain-doc-and-test' of https://github.com/melmothx/catalyst-runti...
[catagits/Catalyst-Runtime.git]
/
lib
/
Catalyst
/
Dispatcher.pm
diff --git
a/lib/Catalyst/Dispatcher.pm
b/lib/Catalyst/Dispatcher.pm
index
d3f25a3
..
cf98256
100644
(file)
--- 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};