Skip to content

Commit 6c885a1

Browse files
committed
Fix two warnings in recent code
1 parent d666125 commit 6c885a1

File tree

2 files changed

+4
-2
lines changed

2 files changed

+4
-2
lines changed

CHANGES

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff 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+
79
0.9932
810
* Add to_decimal and to_dotted_decimal methods
911
* Add tuple and from_tuple methods

vutil/vxs.inc

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff 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)

0 commit comments

Comments
 (0)