Author: timbo
Date: Fri May 7 05:25:29 2010
New Revision: 13958
Modified:
dbi/trunk/DBI.xs
Log:
Include interpreter pointer in trace log message to help debug issues with
multiplicity.
Modified: dbi/trunk/DBI.xs
==============================================================================
--- dbi/trunk/DBI.xs (original)
+++ dbi/trunk/DBI.xs Fri May 7 05:25:29 2010
@@ -4401,11 +4401,16 @@
set_trace_file(file);
if (level != RETVAL) {
if ((level & DBIc_TRACE_LEVEL_MASK) > 0) {
- PerlIO_printf(DBILOGFP," DBI %s%s default trace level set to
0x%lx/%ld (pid %d) at %s\n",
+ PerlIO_printf(DBILOGFP," DBI %s%s default trace level set to
0x%lx/%ld (pid %d pi %p) at %s\n",
XS_VERSION, dbi_build_opt,
(long)(level & DBIc_TRACE_FLAGS_MASK),
(long)(level & DBIc_TRACE_LEVEL_MASK),
(int)PerlProc_getpid(),
+#ifdef MULTIPLICITY
+ my_perl,
+#else
+ 0,
+#endif
log_where(Nullsv, 0, "", "", 1, 1, 0)
);
if (!PL_dowarn)
