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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2008-11-20 01:56:01 +0000 (Thu, 20 Nov 2008)
New Revision: 8625

Modified:
   Catalyst-Plugin-SmartURI/1.000/trunk/Changes
   Catalyst-Plugin-SmartURI/1.000/trunk/META.yml
   Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/Plugin/SmartURI.pm
Log:
SmartURI: fix for 5.8, thanks to t0m :)


Modified: Catalyst-Plugin-SmartURI/1.000/trunk/Changes
===================================================================
--- Catalyst-Plugin-SmartURI/1.000/trunk/Changes	2008-11-19 23:59:31 UTC (rev 8624)
+++ Catalyst-Plugin-SmartURI/1.000/trunk/Changes	2008-11-20 01:56:01 UTC (rev 8625)
@@ -33,3 +33,6 @@
 
 0.029  2008-10-09 07:02:46
     Fixed the host-header stuff for when there's no port.
+
+0.030  2008-11-19 17:54:37
+    Fixed for Catalyst 5.8

Modified: Catalyst-Plugin-SmartURI/1.000/trunk/META.yml
===================================================================
--- Catalyst-Plugin-SmartURI/1.000/trunk/META.yml	2008-11-19 23:59:31 UTC (rev 8624)
+++ Catalyst-Plugin-SmartURI/1.000/trunk/META.yml	2008-11-20 01:56:01 UTC (rev 8625)
@@ -24,4 +24,4 @@
   parent: 0
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.029
+version: 0.030

Modified: Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/Plugin/SmartURI.pm
===================================================================
--- Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/Plugin/SmartURI.pm	2008-11-19 23:59:31 UTC (rev 8624)
+++ Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/Plugin/SmartURI.pm	2008-11-20 01:56:01 UTC (rev 8625)
@@ -21,11 +21,11 @@
 
 =head1 VERSION
 
-Version 0.029
+Version 0.030
 
 =cut
 
-our $VERSION = '0.029';
+our $VERSION = '0.030';
 
 =head1 SYNOPSIS
 
@@ -184,7 +184,7 @@
 
         $uri_class->new(
             $req->next::method(@_),
-            { reference => $req->base }
+            ($req->{base} ? { reference => $req->base } : ())
         )
     }