[Catalyst-commits] r8788 - in trunk/Catalyst-Model-DBI: . lib/Catalyst/Helper/Model lib/Catalyst/Model

[alex at dev.catalyst.perl.org]

Author: alex
Date: 2008-12-08 04:23:53 +0000 (Mon, 08 Dec 2008)
New Revision: 8788

Modified:
   trunk/Catalyst-Model-DBI/Changes
   trunk/Catalyst-Model-DBI/lib/Catalyst/Helper/Model/DBI.pm
   trunk/Catalyst-Model-DBI/lib/Catalyst/Model/DBI.pm
Log:
patch changes

Modified: trunk/Catalyst-Model-DBI/Changes
===================================================================
--- trunk/Catalyst-Model-DBI/Changes	2008-12-08 01:11:23 UTC (rev 8787)
+++ trunk/Catalyst-Model-DBI/Changes	2008-12-08 04:23:53 UTC (rev 8788)
@@ -1,6 +1,9 @@
 Revision history for Perl extension Catalyst::Model::DBI.
-0.19  Sun May 13 13:30:00 2007
-	- applied documentation patch sent by Simon Bertrang
+0.20  Sun Dec 07 17:36:00 2008 
+	- fixed issue: http://rt.cpan.org/Public/Bug/Display.html?id=38121
+	- fixed issue: http://rt.cpan.org/Public/Bug/Display.html?id=39884
+0.19  Fri Sep 07 18:00:00 2007
+	- cleaned up a few things
 0.18  Mon May 07 18:40:00 2007
         - reverting back to 0.15 as per Evan Caroll request, model behaving as expected 
 0.17  Mon May 07 08:00:00 2007

Modified: trunk/Catalyst-Model-DBI/lib/Catalyst/Helper/Model/DBI.pm
===================================================================
--- trunk/Catalyst-Model-DBI/lib/Catalyst/Helper/Model/DBI.pm	2008-12-08 01:11:23 UTC (rev 8787)
+++ trunk/Catalyst-Model-DBI/lib/Catalyst/Helper/Model/DBI.pm	2008-12-08 04:23:53 UTC (rev 8788)
@@ -3,7 +3,7 @@
 use strict;
 use File::Spec;
 
-our $VERSION = '0.19';
+our $VERSION = '0.20';
 
 =head1 NAME
 

Modified: trunk/Catalyst-Model-DBI/lib/Catalyst/Model/DBI.pm
===================================================================
--- trunk/Catalyst-Model-DBI/lib/Catalyst/Model/DBI.pm	2008-12-08 01:11:23 UTC (rev 8787)
+++ trunk/Catalyst-Model-DBI/lib/Catalyst/Model/DBI.pm	2008-12-08 04:23:53 UTC (rev 8788)
@@ -5,7 +5,7 @@
 use NEXT;
 use DBI;
 
-our $VERSION = '0.19';
+our $VERSION = '0.20';
 
 __PACKAGE__->mk_accessors( qw/_dbh _pid _tid/ );
 
@@ -101,6 +101,7 @@
 
 sub connected {
 	my $self = shift;
+	return unless $self->_dbh;
 	return $self->_dbh->{Active} && $self->_dbh->ping;
 }
 
@@ -145,7 +146,8 @@
 }
 
 sub DESTROY {
-	shift->disconnect;
+	my $self = shift;
+	$self->disconnect if (defined $self->_dbh);
 }
 
 =back