X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=63c2fb75dce10675dd74114f1910f05ccca4d940;hp=8cb6866de04e950970ff851c2c5bb69002fd84f8;hb=7a2295bc5e5acd73fe7ffc3bc556dfa2ec74486a;hpb=804fb55df7c29c1f7a3b855c88adbf183f26ab62

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 8cb6866..63c2fb7 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -1077,7 +1077,7 @@ sub uri_for {
     # join args with '/', or a blank string
     my $args = join('/', grep { defined($_) } @args);
     $args =~ s/\?/%3F/g; # STUPID STUPID SPECIAL CASE
-    $args =~ s!^/!!;
+    $args =~ s!^/+!!;
     my $base = $c->req->base;
     my $class = ref($base);
     $base =~ s{(?<!/)$}{/};