projects
/
catagits/Catalyst-Runtime.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(parent:
cdae055
)
minor change to C::Test for style
Kieren Diment [Mon, 12 Mar 2007 11:07:54 +0000 (11:07 +0000)]
lib/Catalyst/Test.pm
patch
|
blob
|
blame
|
history
diff --git
a/lib/Catalyst/Test.pm
b/lib/Catalyst/Test.pm
index
20bd827
..
84ba98a
100644
(file)
--- a/
lib/Catalyst/Test.pm
+++ b/
lib/Catalyst/Test.pm
@@
-147,7
+147,7
@@
sub remote_request {
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);