summaryrefslogtreecommitdiffstats
path: root/lang/perl/perl-text-csv_xs/patches/900-fix-format-warnings.patch
blob: 4885bb2831ae49a12f8ea78ef3780fe6e5f3df03 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
--- a/CSV_XS.xs
+++ b/CSV_XS.xs
@@ -1235,14 +1235,14 @@ static void cx_ErrorDiag (pTHX_ csv_t *c
     SV **svp;
 
     if ((svp = hv_fetchs (csv->self, "_ERROR_DIAG", FALSE)) && *svp) {
-	if (SvIOK (*svp)) (void)fprintf (stderr, "ERR: %d\n", SvIV (*svp));
+	if (SvIOK (*svp)) (void)fprintf (stderr, "ERR: %ld\n", SvIV (*svp));
 	if (SvPOK (*svp)) (void)fprintf (stderr, "ERR: %s\n", SvPV_nolen (*svp));
 	}
     if ((svp = hv_fetchs (csv->self, "_ERROR_POS", FALSE)) && *svp) {
-	if (SvIOK (*svp)) (void)fprintf (stderr, "POS: %d\n", SvIV (*svp));
+	if (SvIOK (*svp)) (void)fprintf (stderr, "POS: %ld\n", SvIV (*svp));
 	}
     if ((svp = hv_fetchs (csv->self, "_ERROR_FLD", FALSE)) && *svp) {
-	if (SvIOK (*svp)) (void)fprintf (stderr, "FLD: %d\n", SvIV (*svp));
+	if (SvIOK (*svp)) (void)fprintf (stderr, "FLD: %ld\n", SvIV (*svp));
 	}
     } /* ErrorDiag */