[svn:dbi] r14465 - dbi/trunk

Author: timbo
Date: Thu Oct  7 06:03:52 2010
New Revision: 14465

Modified:
   dbi/trunk/DBI.xs

Log:
Add missing 0x prefix in return from DESTROY trace message

Modified: dbi/trunk/DBI.xs
==============================================================================
--- dbi/trunk/DBI.xs	(original)
+++ dbi/trunk/DBI.xs	Thu Oct  7 06:03:52 2010
@@ -3526,7 +3526,7 @@
             if (is_DESTROY) /* show handle as first arg to DESTROY */
                 /* want to show outer handle so trace makes sense       */
                 /* but outer handle has been destroyed so we fake it    */
-                PerlIO_printf(logfp,"(%s=HASH(%p)", HvNAME(SvSTASH(SvRV(orig_h))), (void*)DBIc_MY_H(imp_xxh));
+                PerlIO_printf(logfp,"(%s=HASH(0x%p)", HvNAME(SvSTASH(SvRV(orig_h))), (void*)DBIc_MY_H(imp_xxh));
             else
                 PerlIO_printf(logfp,"(%s", neatsvpv(st1,0));
             if (items >= 3)