File tree Expand file tree Collapse file tree 2 files changed +4
-2
lines changed Expand file tree Collapse file tree 2 files changed +4
-2
lines changed Original file line number Diff line number Diff line change @@ -4,6 +4,8 @@ This is not a complete list of changes. See repository for full details:
44
55 https://github.com/Perl/version.pm
66
7+ * Fix two warnings in recent code
8+
790.9932
810 * Add to_decimal and to_dotted_decimal methods
911 * Add tuple and from_tuple methods
Original file line number Diff line number Diff line change @@ -489,7 +489,7 @@ VXS(version_tuple)
489489 SP -= items;
490490 {
491491 SV * lobj;
492- int i;
492+ size_t i;
493493 VTYPECHECK (lobj, ST (0 ), " lobj" );
494494
495495 SV** avptr = hv_fetchs (MUTABLE_HV (lobj), " version" , 0 );
@@ -525,7 +525,7 @@ VXS(version_from_tuple)
525525
526526 for (i = 1 ; i < items; ++i) {
527527 if (SvIV (ST (i)) < 0 )
528- Perl_croak (aTHX_ " Value %d in version is negative" , SvIV (ST (i)));
528+ Perl_croak (aTHX_ " Value %" IVdf " in version is negative" , SvIV (ST (i)));
529529 UV value = SvUV (ST (i));
530530 av_push (versions, newSVuv (value));
531531 if (i != 1 )
You can’t perform that action at this time.
0 commit comments