From: Marc Mims <marc@questright.com>
Date: Fri, 5 Oct 2007 18:49:20 +0000 (-0700)
Subject: Fixed warning on uninitialized value.
X-Git-Tag: v0.08010~54
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6ae3f9b95ac1d2b3db8ff2536db4a4ba4595fe91;p=dbsrgits%2FDBIx-Class.git

Fixed warning on uninitialized value.
---

diff --git a/lib/DBIx/Class/Storage/DBI.pm b/lib/DBIx/Class/Storage/DBI.pm
index f656c08..874d3a4 100644
--- a/lib/DBIx/Class/Storage/DBI.pm
+++ b/lib/DBIx/Class/Storage/DBI.pm
@@ -718,7 +718,7 @@ sub connected {
 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);