[svn:dbi] r14686 - dbi/trunk

Author: timbo
Date: Sun Feb  6 04:57:19 2011
New Revision: 14686

Modified:
   dbi/trunk/Changes
   dbi/trunk/DBI.pm
   dbi/trunk/DBIXS.h
   dbi/trunk/dbixs_rev.h

Log:
Add DBIf_TRACE_TXN. Added T=><trace flag> to some methods.


Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes	(original)
+++ dbi/trunk/Changes	Sun Feb  6 04:57:19 2011
@@ -13,6 +13,7 @@
   Fixed the definition of ArrayTupleStatus and remove confusion over
     rows affected in list context of execute_array (Martin J. Evans)
   Added CON, ENC and DBD trace flags (Martin J. Evans)
+  Added TXN trace flags and applied CON and TXN to relevant methods (Tim Bunce)
   Enhanced and standardized driver trace level mechanism (Tim Bunce)
 
 =head2 Changes in DBI 1.616 (svn r14616) 30th December 2010

Modified: dbi/trunk/DBI.pm
==============================================================================
--- dbi/trunk/DBI.pm	(original)
+++ dbi/trunk/DBI.pm	Sun Feb  6 04:57:19 2011
@@ -407,21 +407,21 @@
         visit_child_handles => { U => [2,3,'$coderef [, $info ]'], O=>0x0404, T=>4 },
     },
     dr => {		# Database Driver Interface
-	'connect'  =>	{ U =>[1,5,'[$db [,$user [,$passwd [,\%attr]]]]'], H=>3, O=>0x8000 },
-	'connect_cached'=>{U=>[1,5,'[$db [,$user [,$passwd [,\%attr]]]]'], H=>3, O=>0x8000 },
-	'disconnect_all'=>{ U =>[1,1], O=>0x0800 },
-	data_sources => { U =>[1,2,'[\%attr]' ], O=>0x0800 },
-	default_user => { U =>[3,4,'$user, $pass [, \%attr]' ] },
+	'connect'  =>	{ U =>[1,5,'[$db [,$user [,$passwd [,\%attr]]]]'], H=>3, O=>0x8000, T=>0x200 },
+	'connect_cached'=>{U=>[1,5,'[$db [,$user [,$passwd [,\%attr]]]]'], H=>3, O=>0x8000, T=>0x200 },
+	'disconnect_all'=>{ U =>[1,1], O=>0x0800, T=>0x200 },
+	data_sources => { U =>[1,2,'[\%attr]' ], O=>0x0800, T=>0x200 },
+	default_user => { U =>[3,4,'$user, $pass [, \%attr]' ], T=>0x200 },
 	dbixs_revision  => $keeperr,
     },
     db => {		# Database Session Class Interface
 	data_sources	=> { U =>[1,2,'[\%attr]' ], O=>0x0200 },
 	take_imp_data	=> { U =>[1,1], O=>0x10000 },
-	clone   	=> { U =>[1,2,'[\%attr]'] },
-	connected   	=> { U =>[1,0], O => 0x0004 },
-	begin_work   	=> { U =>[1,2,'[ \%attr ]'], O=>0x0400 },
-	commit     	=> { U =>[1,1], O=>0x0480|0x0800 },
-	rollback   	=> { U =>[1,1], O=>0x0480|0x0800 },
+	clone   	=> { U =>[1,2,'[\%attr]'], T=>0x200 },
+	connected   	=> { U =>[1,0], O => 0x0004, T=>0x200 },
+	begin_work   	=> { U =>[1,2,'[ \%attr ]'], O=>0x0400, T=>0x1000 },
+	commit     	=> { U =>[1,1], O=>0x0480|0x0800, T=>0x1000 },
+	rollback   	=> { U =>[1,1], O=>0x0480|0x0800, T=>0x1000 },
 	'do'       	=> { U =>[2,0,'$statement [, \%attr [, @bind_params ] ]'], O=>0x3200 },
 	last_insert_id	=> { U =>[5,6,'$catalog, $schema, $table_name, $field_name [, \%attr ]'], O=>0x2800 },
 	preparse    	=> {  }, # XXX
@@ -434,7 +434,7 @@
 	selectall_hashref=>{ U =>[3,0,'$statement, $keyfield [, \%attr [, @bind_params ] ]'], O=>0x2000 },
 	selectcol_arrayref=>{U =>[2,0,'$statement [, \%attr [, @bind_params ] ]'], O=>0x2000 },
 	ping       	=> { U =>[1,1], O=>0x0404 },
-	disconnect 	=> { U =>[1,1], O=>0x0400|0x0800|0x10000 },
+	disconnect 	=> { U =>[1,1], O=>0x0400|0x0800|0x10000, T=>0x200 },
 	quote      	=> { U =>[2,3, '$string [, $data_type ]' ], O=>0x0430 },
 	quote_identifier=> { U =>[2,6, '$name [, ...] [, \%attr ]' ],    O=>0x0430 },
 	rows       	=> $keeperr,

Modified: dbi/trunk/DBIXS.h
==============================================================================
--- dbi/trunk/DBIXS.h	(original)
+++ dbi/trunk/DBIXS.h	Sun Feb  6 04:57:19 2011
@@ -210,6 +210,7 @@
 #define DBIf_TRACE_CON          0x00000200
 #define DBIf_TRACE_ENC          0x00000400
 #define DBIf_TRACE_DBD          0x00000800
+#define DBIf_TRACE_TXN          0x00001000
 
 #define DBDc_TRACE_LEVEL_MASK   0x00F00000
 #define DBDc_TRACE_LEVEL_SHIFT  20

Modified: dbi/trunk/dbixs_rev.h
==============================================================================
--- dbi/trunk/dbixs_rev.h	(original)
+++ dbi/trunk/dbixs_rev.h	Sun Feb  6 04:57:19 2011
@@ -1,3 +1,3 @@
-/* Sun Feb  6 12:26:34 2011 */
+/* Sun Feb  6 12:56:22 2011 */
 /* Code modified since last checkin */
-#define DBIXS_REVISION 14683
+#define DBIXS_REVISION 14685