Skip Menu |

This queue is for tickets about the DBI CPAN distribution.

Report information
The Basics
Id: 26960
Status: resolved
Priority: 0/
Queue: DBI

People
Owner: Nobody in particular
Requestors: jdhedden [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Unimportant
Broken in: 1.55
Fixed in: (no value)



Subject: warning: int format, pointer arg
Couple of compiler warnings: DBI.xs: In function `XS_DBI_dispatch': DBI.xs:2934: warning: int format, pointer arg (arg 6) DBI.xs:2969: warning: int format, pointer arg (arg 7) Attached patch fixes them.
Subject: dbi.patch
--- DBI-1.55-1neN91/DBI.xs.orig 2007-05-07 11:03:20.000000000 -0400 +++ DBI-1.55-1neN91/DBI.xs 2007-05-07 11:06:06.000000000 -0400 @@ -2930,7 +2930,7 @@ SV *code = SvRV(*hook_svp); I32 skip_dispatch = 0; if (trace_level) - PerlIO_printf(DBILOGFP, "%c {{ %s callback %s being invoked (mark %d)\n", + PerlIO_printf(DBILOGFP, "%c {{ %s callback %s being invoked (mark %p)\n", (dirty?'!':' '), meth_name, neatsvpv(*hook_svp,0), mark); /* we don't use ENTER,SAVETMPS & FREETMPS,LEAVE because we may need mortal @@ -2963,7 +2963,7 @@ DEFSV = SvREFCNT_inc(orig_defsv); if (trace_level) - PerlIO_printf(DBILOGFP, "%c }} %s callback %s returned%s (mark %d)\n", + PerlIO_printf(DBILOGFP, "%c }} %s callback %s returned%s (mark %p)\n", (dirty?'!':' '), meth_name, neatsvpv(*hook_svp,0), skip_dispatch ? ", actual method will not be called" : "", mark );
Fixed for next release. Thanks.