[Catalyst-commits] r6535 - in trunk/Catalyst-Plugin-Session: . t

[nothingmuch at dev.catalyst.perl.org]

Author: nothingmuch
Date: 2007-07-16 11:26:20 +0100 (Mon, 16 Jul 2007)
New Revision: 6535

Modified:
   trunk/Catalyst-Plugin-Session/Makefile.PL
   trunk/Catalyst-Plugin-Session/t/06_finalize.t
Log:
foo

Modified: trunk/Catalyst-Plugin-Session/Makefile.PL
===================================================================
--- trunk/Catalyst-Plugin-Session/Makefile.PL	2007-07-15 23:05:35 UTC (rev 6534)
+++ trunk/Catalyst-Plugin-Session/Makefile.PL	2007-07-16 10:26:20 UTC (rev 6535)
@@ -9,7 +9,7 @@
 
 foreach my $module (keys %state) {
     if ( eval "require Catalyst::Plugin::Session::State::$module" and
-    not eval { "Catalyst::Plugin::Session::State::$module"->VERSION($state{$module}) } ) {
+    ${"Catalyst::Plugin::Session::State::${module}::VERSION"} < $state{$module} ) {
         warn <<WARN;
 
 ********** NOTE **********

Modified: trunk/Catalyst-Plugin-Session/t/06_finalize.t
===================================================================
--- trunk/Catalyst-Plugin-Session/t/06_finalize.t	2007-07-15 23:05:35 UTC (rev 6534)
+++ trunk/Catalyst-Plugin-Session/t/06_finalize.t	2007-07-16 10:26:20 UTC (rev 6535)
@@ -3,8 +3,16 @@
 use strict;
 use warnings;
 
-use Test::More tests => 3;
+use Test::More;
 
+BEGIN {
+    if ( eval { require Catalyst::Plugin::Session::State::Cookie } ) {
+        plan tests => 3;
+    } else {
+        plan skip_all => "Catalyst::Plugin::Session::State::Cookie required";
+    }
+}
+
 my $finalized = 0;
 
 {