[Bast-commits] r3710 - in DBIx-Class: . 0.09/trunk/lib/DBIx/Class/Storage

[semifor at dev.catalyst.perl.org]

Author: semifor
Date: 2007-08-30 20:46:38 +0100 (Thu, 30 Aug 2007)
New Revision: 3710

Modified:
   DBIx-Class/
   DBIx-Class/0.09/trunk/lib/DBIx/Class/Storage/DBI.pm
Log:
 r1174 at titanic:  mjm | 2007-08-30 12:09:02 -0700
 Ensure defined before == to prevent warnings.



Property changes on: DBIx-Class
___________________________________________________________________
Name: svk:merge
   + d61e1e54-d1c0-42ab-944f-1b6a4b221ec0:/local/dbix-class:1174

Modified: DBIx-Class/0.09/trunk/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.09/trunk/lib/DBIx/Class/Storage/DBI.pm	2007-08-24 17:11:46 UTC (rev 3709)
+++ DBIx-Class/0.09/trunk/lib/DBIx/Class/Storage/DBI.pm	2007-08-30 19:46:38 UTC (rev 3710)
@@ -677,7 +677,7 @@
 sub _verify_pid {
   my ($self) = @_;
 
-  return if $self->_conn_pid == $$;
+  return if defined $self->_conn_pid && $self->_conn_pid == $$;
 
   $self->_dbh->{InactiveDestroy} = 1;
   $self->_dbh(undef);