[svn:dbi] r14147 - dbi/trunk/lib/DBD

Author: REHSACK
Date: Tue Jun 15 02:03:38 2010
New Revision: 14147

Modified:
   dbi/trunk/lib/DBD/DBM.pm

Log:
Move default attribute initialization from DBD::DBM::dr::connect into
DBD::DBM::db::init_default_attributes


Modified: dbi/trunk/lib/DBD/DBM.pm
==============================================================================
--- dbi/trunk/lib/DBD/DBM.pm	(original)
+++ dbi/trunk/lib/DBD/DBM.pm	Tue Jun 15 02:03:38 2010
@@ -78,8 +78,6 @@
     #    });
     my $this = $drh->SUPER::connect( $dbname, $user, $auth, $attr );
 
-    $this->STORE( 'f_lockfile', '.lck' );
-    $this->STORE( 'Active',     1 );
     return $this;
 }
 
@@ -221,6 +219,16 @@
     return $dbh->SUPER::init_valid_attributes();
 }
 
+sub init_default_attributes
+{
+    my $dbh = shift;
+
+    $dbh->SUPER::init_default_attributes();
+    $dbh->{f_lockfile} = '.lck';
+
+    return $dbh;
+}
+
 # this is an example of a private method
 # these used to be done with $dbh->func(...)
 # see above in the driver() sub for how to install the method