[Catalyst-commits] r7533 - in Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst: . Plugin

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2008-03-29 06:48:37 +0000 (Sat, 29 Mar 2008)
New Revision: 7533

Modified:
   Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/Plugin/SmartURI.pm
   Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/SmartURI.pm
Log:
$uri->hostless didn't work if the URI has a port, fixed.


Modified: Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/Plugin/SmartURI.pm
===================================================================
--- Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/Plugin/SmartURI.pm	2008-03-29 06:02:07 UTC (rev 7532)
+++ Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/Plugin/SmartURI.pm	2008-03-29 06:48:37 UTC (rev 7533)
@@ -47,7 +47,7 @@
 
 There will be a slight performance penalty for your first few requests, due to
 the way L<Catalyst::SmartURI> works, but after that you shouldn't notice
-it.
+it. The penalty is considerably smaller in perl 5.10+.
 
 =head1 CONFIGURATION
 

Modified: Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/SmartURI.pm
===================================================================
--- Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/SmartURI.pm	2008-03-29 06:02:07 UTC (rev 7532)
+++ Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/SmartURI.pm	2008-03-29 06:48:37 UTC (rev 7533)
@@ -140,8 +140,9 @@
 
     my $scheme = $uri->scheme('');
     $uri->host('');
+    $uri->port('');
 
-    $uri->factory_class->new(($uri =~ m!^/*(/.*)!), $_[0]->_opts);
+    $uri->factory_class->new(($uri =~ m!^[/:]*(/.*)!), $_[0]->_opts);
 }
 
 =head2 $uri->reference