[svn:dbi] rev 1086 - in dbi/trunk: . lib/DBD

[timbo]

Author: timbo
Date: Wed Jun 22 06:04:27 2005
New Revision: 1086

Modified:
   dbi/trunk/DBI.pm
   dbi/trunk/lib/DBD/Proxy.pm
Log:
Pass original args to $dbh->connected.


Modified: dbi/trunk/DBI.pm
==============================================================================
--- dbi/trunk/DBI.pm    (original)
+++ dbi/trunk/DBI.pm    Wed Jun 22 06:04:27 2005
@@ -650,7 +650,9 @@ sub connect {
        }
 
        # if we've been subclassed then let the subclass know that we're 
connected
-       $dbh->connected($dsn, $user, $pass, $attr) if ref $dbh ne 'DBI::db';
+       # and pass in the original arguments
+       $dbh->connected(@orig_args)
+           if ref $dbh ne 'DBI::db';
 
        DBI->trace_msg("    <- connect= $dbh\n") if $DBI::dbi_debug;
 
@@ -6568,6 +6570,7 @@ connect, the DBI->connect method automat
 
 The default method does nothing. The call is made just to simplify
 any post-connection setup that your subclass may want to perform.
+The parameters are the same as passed to DBI->connect.
 If your subclass supplies a connected method, it should be part of the
 MySubDBI::db package.
 

Modified: dbi/trunk/lib/DBD/Proxy.pm
==============================================================================
--- dbi/trunk/lib/DBD/Proxy.pm  (original)
+++ dbi/trunk/lib/DBD/Proxy.pm  Wed Jun 22 06:04:27 2005
@@ -219,7 +219,10 @@ package DBD::Proxy::db; # ====== DATABAS
 
 $DBD::Proxy::db::imp_data_size = 0;
 
+# XXX probably many more methods need to be added here.
+# See notes in ToDo about method metadata
 sub commit;
+sub connected;
 sub rollback;
 sub ping;