[Catalyst-commits] r6269 - / trunk/Catalyst-Runtime/lib/Catalyst

[zarquon at dev.catalyst.perl.org]

Author: zarquon
Date: 2007-04-04 01:42:26 +0100 (Wed, 04 Apr 2007)
New Revision: 6269

Modified:
   /
   trunk/Catalyst-Runtime/lib/Catalyst/Test.pm
Log:
 r9743 at zaphod:  kd | 2007-03-12 16:30:01 +1100
 minor change to C::Test for style



Property changes on: 
___________________________________________________________________
Name: svk:merge
   - 1b129c88-ebf4-0310-add9-f09427935aba:/local/catalyst:4278
1c72fc7c-9ce4-42af-bf25-3bfe470ff1e8:/local/Catalyst:9742
3b9770f9-e80c-0410-a7de-cd203d167417:/local/catalyst:3514
dd8ad9ea-0304-0410-a433-df5f223e7bc0:/local/Catalyst:6909
   + 1b129c88-ebf4-0310-add9-f09427935aba:/local/catalyst:4278
1c72fc7c-9ce4-42af-bf25-3bfe470ff1e8:/local/Catalyst:9743
3b9770f9-e80c-0410-a7de-cd203d167417:/local/catalyst:3514
dd8ad9ea-0304-0410-a433-df5f223e7bc0:/local/Catalyst:6909

Modified: trunk/Catalyst-Runtime/lib/Catalyst/Test.pm
===================================================================
--- trunk/Catalyst-Runtime/lib/Catalyst/Test.pm	2007-04-04 00:42:00 UTC (rev 6268)
+++ trunk/Catalyst-Runtime/lib/Catalyst/Test.pm	2007-04-04 00:42:26 UTC (rev 6269)
@@ -147,7 +147,7 @@
         shift @sp;shift @rp; # leading /
         if (@rp) {
             foreach my $sp (@sp) {
-                shift @rp if $sp eq $rp[0];
+                $sp eq $rp[0] ? shift @rp : last
             }
         }
         $request->uri->path(join '/', @rp);