From: Dave Rolsky <autarch@urth.org>
Date: Sun, 23 Jan 2011 21:10:39 +0000 (-0600)
Subject: Make sure generated names don't have two slashes in a row
X-Git-Tag: 0.01~13
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalystX-Routes.git;a=commitdiff_plain;h=058ab36b2a72bf2c6d353fb3795d2783067c9624

Make sure generated names don't have two slashes in a row
---

diff --git a/lib/CatalystX/Routes.pm b/lib/CatalystX/Routes.pm
index 1bde24f..9363f1d 100644
--- a/lib/CatalystX/Routes.pm
+++ b/lib/CatalystX/Routes.pm
@@ -48,10 +48,13 @@ sub _add_route {
         $attrs->{Chained} = q{/};
     }
 
+    my $name = $_[0];
+    $name =~ s{^/}{};
+
     # We need to turn the full chain name into a path, since two end points
     # from two different chains could have the same end point name.
-    my $name = ( $attrs->{Chained} eq '/' ? q{} : $attrs->{Chained} ) . q{/}
-        . $_[0];
+    $name = ( $attrs->{Chained} eq '/' ? q{} : $attrs->{Chained} ) . q{/}
+        . $name;
 
     my $meth_base = '__route__' . $name;