From: Andy Grundman Date: Fri, 3 Aug 2007 16:30:21 +0000 (+0000) Subject: Remove a big chunk of duplicate code from C::Test X-Git-Tag: 5.7099_04~170 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=bba13f350e550b180357d24e478ab120642d1d71 Remove a big chunk of duplicate code from C::Test --- diff --git a/lib/Catalyst/Test.pm b/lib/Catalyst/Test.pm index 3aa9878..9f2f7be 100644 --- a/lib/Catalyst/Test.pm +++ b/lib/Catalyst/Test.pm @@ -136,21 +136,6 @@ sub remote_request { if ( $server->path =~ m|^(.+)?/$| ) { $server->path("$1"); # need to be quoted - } - - # the request path needs to be sanitised if $server is using a - # non-root path due to potential overlap between request path and - # response path. - if ($server->path) { - my @sp = split '/', $server->path; - my @rp = split '/', $request->uri->path; - shift @sp;shift @rp; # leading / - if (@rp) { - foreach my $sp (@sp) { - shift @rp if $sp eq $rp[0]; - } - } - $request->uri->path(join '/', @rp); } # the request path needs to be sanitised if $server is using a