[Dbix-class] DBI warning annoyance

[Michael Higgins]

Use of uninitialized value in numeric eq (==)
at /usr/lib/perl5/vendor_perl/5.8.8/DBIx/Class/Storage/DBI.pm line 709.

Dutifully, I go to the module:

# handle pid changes correctly
#  NOTE: assumes $self->_dbh is a valid $dbh
sub _verify_pid {
  my ($self) = @_;

  return if $self->_conn_pid == $$;         ###### LINE 709

  $self->_dbh->{InactiveDestroy} = 1;
  $self->_dbh(undef);
  $self->{_dbh_gen}++;

  return;
}

Can't grasp which of those is uninitialized. $$ should always have a
value, right? 

Doesn't seem to affect anything, but still, I'd like it to go away. 

What am I not doing correctly? _conn_pid would be private to the module,
right? I'm out of ideas already. :(

Cheers,


-- 
 |\  /|        |   |          ~ ~  
 | \/ |        |---|          `|` ?
 |    |ichael  |   |iggins    \^ /
 michael.higgins[at]evolone[dot]org