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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-03-06 00:32:02 +0000 (Fri, 06 Mar 2009)
New Revision: 9438

Modified:
   Catalyst-Plugin-SmartURI/1.000/trunk/META.yml
   Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/Plugin/SmartURI.pm
Log:
C::P::SmartURI -- fix bug where uri accessor could not be used as setter

Modified: Catalyst-Plugin-SmartURI/1.000/trunk/META.yml
===================================================================
--- Catalyst-Plugin-SmartURI/1.000/trunk/META.yml	2009-03-05 21:18:04 UTC (rev 9437)
+++ Catalyst-Plugin-SmartURI/1.000/trunk/META.yml	2009-03-06 00:32:02 UTC (rev 9438)
@@ -5,7 +5,7 @@
 build_requires:
   Test::More: 0
 distribution_type: module
-generated_by: 'Module::Install version 0.77'
+generated_by: 'Module::Install version 0.79'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -24,4 +24,4 @@
   parent: 0
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.030
+version: 0.031

Modified: Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/Plugin/SmartURI.pm
===================================================================
--- Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/Plugin/SmartURI.pm	2009-03-05 21:18:04 UTC (rev 9437)
+++ Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/Plugin/SmartURI.pm	2009-03-06 00:32:02 UTC (rev 9438)
@@ -21,11 +21,11 @@
 
 =head1 VERSION
 
-Version 0.030
+Version 0.031
 
 =cut
 
-our $VERSION = '0.030';
+our $VERSION = '0.031';
 
 =head1 SYNOPSIS
 
@@ -182,9 +182,11 @@
 
         my $uri_class = $context ? $context->uri_class : $conf_uri_class;
 
-        $uri_class->new(
-            $req->next::method(@_),
-            ($req->{base} ? { reference => $req->base } : ())
+        $req->next::method(
+            $uri_class->new(
+                $req->next::method(@_),
+                ($req->{base} ? { reference => $req->base } : ())
+            )
         )
     }