[svn:dbi] r13958 - dbi/trunk

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)