[Catalyst-commits] r7076 - Catalyst-Runtime/5.70/trunk/lib/Catalyst

[andyg at dev.catalyst.perl.org]

Author: andyg
Date: 2007-10-29 22:00:00 +0000 (Mon, 29 Oct 2007)
New Revision: 7076

Modified:
   Catalyst-Runtime/5.70/trunk/lib/Catalyst/Test.pm
Log:
Allow for CATALYST_SERVER settings with a trailing slash

Modified: Catalyst-Runtime/5.70/trunk/lib/Catalyst/Test.pm
===================================================================
--- Catalyst-Runtime/5.70/trunk/lib/Catalyst/Test.pm	2007-10-27 18:25:21 UTC (rev 7075)
+++ Catalyst-Runtime/5.70/trunk/lib/Catalyst/Test.pm	2007-10-29 22:00:00 UTC (rev 7076)
@@ -135,7 +135,8 @@
     my $server  = URI->new( $ENV{CATALYST_SERVER} );
 
     if ( $server->path =~ m|^(.+)?/$| ) {
-        $server->path("$1");    # need to be quoted
+        my $path = $1;
+        $server->path("$path") if $path;    # need to be quoted
     }
 
     # the request path needs to be sanitised if $server is using a