[Bast-commits] r3806 - in DBIx-Class: . 0.09/trunk/lib/DBIx/Class/Storage 0.09/trunk/lib/DBIx/Class/Storage/DBI 0.09/trunk/lib/DBIx/Class/Storage/DBI/ODBC

[semifor at dev.catalyst.perl.org]

Author: semifor
Date: 2007-10-07 19:34:28 +0100 (Sun, 07 Oct 2007)
New Revision: 3806

Modified:
   DBIx-Class/
   DBIx-Class/0.09/trunk/lib/DBIx/Class/Storage/DBI.pm
   DBIx-Class/0.09/trunk/lib/DBIx/Class/Storage/DBI/ODBC.pm
   DBIx-Class/0.09/trunk/lib/DBIx/Class/Storage/DBI/ODBC/DB2_400_SQL.pm
Log:
 r1367 at titanic:  mjm | 2007-10-07 10:53:11 -0700
 Change intended for 0.08/trunk. Reversed so svk pull will work.



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

Modified: DBIx-Class/0.09/trunk/lib/DBIx/Class/Storage/DBI/ODBC/DB2_400_SQL.pm
===================================================================
--- DBIx-Class/0.09/trunk/lib/DBIx/Class/Storage/DBI/ODBC/DB2_400_SQL.pm	2007-10-05 21:30:19 UTC (rev 3805)
+++ DBIx-Class/0.09/trunk/lib/DBIx/Class/Storage/DBI/ODBC/DB2_400_SQL.pm	2007-10-07 18:34:28 UTC (rev 3806)
@@ -56,7 +56,7 @@
 
 =head1 AUTHORS
 
-Marc Mims C<< <marc at questright.com> >>
+Marc Mims C<< <marc at sssonline.com> >>
 
 Based on DBIx::Class::Storage::DBI::DB2 by Jess Robinson.
 

Modified: DBIx-Class/0.09/trunk/lib/DBIx/Class/Storage/DBI/ODBC.pm
===================================================================
--- DBIx-Class/0.09/trunk/lib/DBIx/Class/Storage/DBI/ODBC.pm	2007-10-05 21:30:19 UTC (rev 3805)
+++ DBIx-Class/0.09/trunk/lib/DBIx/Class/Storage/DBI/ODBC.pm	2007-10-07 18:34:28 UTC (rev 3806)
@@ -39,7 +39,7 @@
 
 =head1 AUTHORS
 
-Marc Mims C<< <marc at questright.com> >>
+Marc Mims C<< <marc at sssonline.com> >>
 
 =head1 LICENSE
 

Modified: DBIx-Class/0.09/trunk/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.09/trunk/lib/DBIx/Class/Storage/DBI.pm	2007-10-05 21:30:19 UTC (rev 3805)
+++ DBIx-Class/0.09/trunk/lib/DBIx/Class/Storage/DBI.pm	2007-10-07 18:34:28 UTC (rev 3806)
@@ -677,7 +677,7 @@
 sub _verify_pid {
   my ($self) = @_;
 
-  return if defined $self->_conn_pid && $self->_conn_pid == $$;
+  return if $self->_conn_pid == $$;
 
   $self->_dbh->{InactiveDestroy} = 1;
   $self->_dbh(undef);