[Bast-commits] r3805 - in DBIx-Class: . 0.08/trunk/lib/DBIx/Class/Storage

[semifor at dev.catalyst.perl.org]

Author: semifor
Date: 2007-10-05 22:30:19 +0100 (Fri, 05 Oct 2007)
New Revision: 3805

Modified:
   DBIx-Class/
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
Log:
 r1365 at titanic:  mjm | 2007-10-05 13:49:20 -0700
 Fixed warning on uninitialized value.



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

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2007-10-04 20:54:08 UTC (rev 3804)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2007-10-05 21:30:19 UTC (rev 3805)
@@ -718,7 +718,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);