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

[andyg at dev.catalyst.perl.org]

Author: andyg
Date: 2007-08-03 17:30:21 +0100 (Fri, 03 Aug 2007)
New Revision: 6616

Modified:
   trunk/Catalyst-Runtime/lib/Catalyst/Test.pm
Log:
Remove a big chunk of duplicate code from C::Test

Modified: trunk/Catalyst-Runtime/lib/Catalyst/Test.pm
===================================================================
--- trunk/Catalyst-Runtime/lib/Catalyst/Test.pm	2007-08-03 16:22:33 UTC (rev 6615)
+++ trunk/Catalyst-Runtime/lib/Catalyst/Test.pm	2007-08-03 16:30:21 UTC (rev 6616)
@@ -136,21 +136,6 @@
 
     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