[Catalyst-commits] r7640 - in trunk/Catalyst-Plugin-Session-Store-DBI: . lib/Catalyst/Plugin/Session/Store

[andyg at dev.catalyst.perl.org]

Author: andyg
Date: 2008-04-29 13:18:41 +0100 (Tue, 29 Apr 2008)
New Revision: 7640

Modified:
   trunk/Catalyst-Plugin-Session-Store-DBI/Changes
   trunk/Catalyst-Plugin-Session-Store-DBI/lib/Catalyst/Plugin/Session/Store/DBI.pm
Log:
Session::Store::DBI 0.13, patch from Olivier Thauvin to make ping() check work properly

Modified: trunk/Catalyst-Plugin-Session-Store-DBI/Changes
===================================================================
--- trunk/Catalyst-Plugin-Session-Store-DBI/Changes	2008-04-29 06:26:18 UTC (rev 7639)
+++ trunk/Catalyst-Plugin-Session-Store-DBI/Changes	2008-04-29 12:18:41 UTC (rev 7640)
@@ -1,5 +1,8 @@
 Revision history for Perl extension Catalyst::Plugin::Session::Store::DBI
 
+0.13    2008-04-29 08:30:00
+        - Fixed ping() check to work properly. (Olivier Thauvin)
+
 0.12    2007-10-05 11:00:00
         - Added support for Catalyst::Model::DBI models. (Geoffrey Giesemann)
         - Switched to Module::Install.

Modified: trunk/Catalyst-Plugin-Session-Store-DBI/lib/Catalyst/Plugin/Session/Store/DBI.pm
===================================================================
--- trunk/Catalyst-Plugin-Session-Store-DBI/lib/Catalyst/Plugin/Session/Store/DBI.pm	2008-04-29 06:26:18 UTC (rev 7639)
+++ trunk/Catalyst-Plugin-Session-Store-DBI/lib/Catalyst/Plugin/Session/Store/DBI.pm	2008-04-29 12:18:41 UTC (rev 7640)
@@ -8,7 +8,7 @@
 use NEXT;
 use Storable qw/nfreeze thaw/;
 
-our $VERSION = '0.12';
+our $VERSION = '0.13';
 
 __PACKAGE__->mk_classdata('_session_sql');
 __PACKAGE__->mk_classdata('_session_dbh');
@@ -103,7 +103,7 @@
     }
     else {
         # make sure the database is still connected
-        eval { $c->_session_dbh->ping };
+        eval { $c->_session_dbh->ping or die "dbh->ping failed" };
         if ($@) {
             # reconnect
             $c->_session_dbi_connect();