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
