| Subject: | printf warnings |
The attached patch fixes the following warnings:
DBI.xs: In function `dbih_setup_fbav':
DBI.xs:1413: warning: int format, long int arg (arg 3)
DBI.xs:1428: warning: int format, long int arg (arg 3)
| Subject: | dbi.patch |
diff -urN DBI-1.54/DBI.xs DBI-patched/DBI.xs
--- DBI-1.54/DBI.xs 2007-02-21 20:36:16.000000000 -0500
+++ DBI-patched/DBI.xs 2007-03-22 11:56:56.000000000 -0400
@@ -1410,7 +1410,7 @@
return av;
/* we need to adjust the size of the array */
if (DBIc_TRACE_LEVEL(imp_sth) >= 3)
- PerlIO_printf(DBILOGFP," dbih_setup_fbav realloc from %d to %d fields\n", av_len(av)+1, i);
+ PerlIO_printf(DBILOGFP," dbih_setup_fbav realloc from %d to %d fields\n", (int)av_len(av)+1, i);
SvREADONLY_off(av);
}
else {
@@ -1425,7 +1425,7 @@
while(i--) /* field 1 stored at index 0 */
av_store(av, i, newSV(0));
if (DBIc_TRACE_LEVEL(imp_sth) >= 3)
- PerlIO_printf(DBILOGFP," dbih_setup_fbav now %d fields\n", av_len(av)+1);
+ PerlIO_printf(DBILOGFP," dbih_setup_fbav now %d fields\n", (int)av_len(av)+1);
SvREADONLY_on(av); /* protect against shift @$row etc */
/* row_count will need to be manually reset by the driver if the */
/* sth is re-executed (since this code won't get rerun) */