simplify

parent fd1017f6
......@@ -350,9 +350,7 @@ sub get_best_url {
sub assemble_url {
my ($package, $uri, @segments) = @_;
my $path = $uri->path;
$path =~ s/\/+$//g;
$uri->path(join('/', $path, @segments));
$uri->path_segments(grep { defined } $uri->path_segments, @segments);
return $uri;
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment