projects
/
catagits/Catalyst-Runtime.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Initial support for :Args attribute
[catagits/Catalyst-Runtime.git]
/
lib
/
Catalyst
/
Dispatcher.pm
diff --git
a/lib/Catalyst/Dispatcher.pm
b/lib/Catalyst/Dispatcher.pm
index
8c4a5d8
..
858c1ec
100644
(file)
--- a/
lib/Catalyst/Dispatcher.pm
+++ b/
lib/Catalyst/Dispatcher.pm
@@
-194,7
+194,9
@@
sub prepare_action {
}
# If not, move the last part path to args
- unshift @args, pop @path;
+ my $arg = pop(@path);
+ $arg =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
+ unshift @args, $arg;
}
$c->log->debug( 'Path is "' . $c->req->match . '"' )