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)
