[Catalyst-commits] r12618 - Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2010-01-12 21:37:39 +0000 (Tue, 12 Jan 2010)
New Revision: 12618

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/CGI.pm
Log:
canonical() is a no-op for the base uri.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/CGI.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/CGI.pm	2010-01-12 21:37:31 UTC (rev 12617)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/CGI.pm	2010-01-12 21:37:39 UTC (rev 12618)
@@ -203,7 +203,7 @@
 
     my $base_uri = $scheme . '://' . $host . $base_path;
 
-    $c->request->base( bless(\$base_uri, $uri_class)->canonical );
+    $c->request->base( bless \$base_uri, $uri_class );
 }
 
 =head2 $self->prepare_query_parameters($c)