0
0
mirror of https://github.com/openwrt/packages.git synced 2025-02-07 09:19:51 +00:00
packages/lang/perl-text-csv_xs/patches/900-fix-format-warnings.patch
Philip Prindeville ea5fd93ca8 perl-text-csv_xs: Update to 1.55
Signed-off-by: Philip Prindeville <philipp@redfish-solutions.com>
2024-07-14 19:08:29 -07:00

21 lines
864 B
Diff

--- 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 */