}
if ( blessed($path) ) { # action object
- my $captures = [ map { URI::Escape::uri_escape($_) }
+ my $captures = [ map { s|/|%2F|; $_; }
( scalar @args && ref $args[0] eq 'ARRAY'
? @{ shift(@args) }
: ()) ];
carp "uri_for called with undef argument" if grep { ! defined $_ } @args;
s/([^$URI::uric])/$URI::Escape::escapes{$1}/go for @args;
+ s|/|%2F| for @args;
unshift(@args, $path);