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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2008-06-25 00:53:45 +0100 (Wed, 25 Jun 2008)
New Revision: 7997

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:
Weird init bug.


Modified: Catalyst-Plugin-SmartURI/1.000/trunk/Changes
===================================================================
--- Catalyst-Plugin-SmartURI/1.000/trunk/Changes	2008-06-24 00:14:21 UTC (rev 7996)
+++ Catalyst-Plugin-SmartURI/1.000/trunk/Changes	2008-06-24 23:53:45 UTC (rev 7997)
@@ -11,3 +11,6 @@
 
 0.021  2008-06-16 22:20:42
         Minor speedup, avoiding unnecessary string evals.
+
+0.022  2008-06-24 16:52:55
+        Fix weird bug with initialization that sometimes happens.

Modified: Catalyst-Plugin-SmartURI/1.000/trunk/META.yml
===================================================================
--- Catalyst-Plugin-SmartURI/1.000/trunk/META.yml	2008-06-24 00:14:21 UTC (rev 7996)
+++ Catalyst-Plugin-SmartURI/1.000/trunk/META.yml	2008-06-24 23:53:45 UTC (rev 7997)
@@ -5,7 +5,7 @@
 build_requires:
   Test::More: 0
 distribution_type: module
-generated_by: 'Module::Install version 0.72'
+generated_by: 'Module::Install version 0.75'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.3.html
@@ -21,4 +21,4 @@
   Class::C3::Componentised: 0
   Class::Data::Inheritable: 0
   URI::SmartURI: 0
-version: 0.021
+version: 0.022

Modified: Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/Plugin/SmartURI.pm
===================================================================
--- Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/Plugin/SmartURI.pm	2008-06-24 00:14:21 UTC (rev 7996)
+++ Catalyst-Plugin-SmartURI/1.000/trunk/lib/Catalyst/Plugin/SmartURI.pm	2008-06-24 23:53:45 UTC (rev 7997)
@@ -14,7 +14,7 @@
 
 =cut
 
-our $VERSION = '0.021';
+our $VERSION = '0.022';
 
 =head1 SYNOPSIS
 
@@ -155,8 +155,8 @@
 
 sub prepare_uri {
     my ($c, $uri)   = @_;
-    my $disposition = $c->uri_disposition;
-    my $uri_class   = $c->uri_class;
+    my $disposition = $c->uri_disposition || 'absolute';
+    my $uri_class   = $c->uri_class       || 'URI::SmartURI';
 
     eval "require $uri_class",$loaded{$uri_class}++ unless $loaded{$uri_class};