}
# 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;
}
- s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg for @args;
$c->log->debug( 'Path is "' . $c->req->match . '"' )
if ( $c->debug && $c->req->match );