File tree 2 files changed +4
-2
lines changed 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:
4
4
5
5
https://github.com/Perl/version.pm
6
6
7
+ * Fix two warnings in recent code
8
+
7
9
0.9932
8
10
* Add to_decimal and to_dotted_decimal methods
9
11
* Add tuple and from_tuple methods
Original file line number Diff line number Diff line change @@ -489,7 +489,7 @@ VXS(version_tuple)
489
489
SP -= items;
490
490
{
491
491
SV * lobj;
492
- int i;
492
+ size_t i;
493
493
VTYPECHECK (lobj, ST (0 ), " lobj" );
494
494
495
495
SV** avptr = hv_fetchs (MUTABLE_HV (lobj), " version" , 0 );
@@ -525,7 +525,7 @@ VXS(version_from_tuple)
525
525
526
526
for (i = 1 ; i < items; ++i) {
527
527
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)));
529
529
UV value = SvUV (ST (i));
530
530
av_push (versions, newSVuv (value));
531
531
if (i != 1 )
You can’t perform that action at this time.
0 commit comments