[Catalyst-commits] r10065 - Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-05-10 22:08:35 +0000 (Sun, 10 May 2009)
New Revision: 10065

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType/Chained.pm
Log:
Display / as the path spec for chained actions with empty path parts.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType/Chained.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType/Chained.pm	2009-05-10 16:07:39 UTC (rev 10064)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType/Chained.pm	2009-05-10 22:08:35 UTC (rev 10065)
@@ -127,7 +127,7 @@
             push(@rows, [ '', $name ]);
         }
         push(@rows, [ '', (@rows ? "=> " : '')."/${endpoint}" ]);
-        $rows[0][0] = join('/', '', @parts);
+        $rows[0][0] = join('/', '', @parts) || '/';
         $paths->row(@$_) for @rows;
     }