This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
APItest.xs: Fix compile warning: format ‘%d’ expects argument of type ‘int’, but...
[perl5.git] / ext / XS-APItest / APItest.xs
index 34c602f..fcaea38 100644 (file)
@@ -1084,7 +1084,7 @@ static OP *THX_parse_keyword_subsignature(pTHX)
                seen_nextstate++;
                retop = op_append_list(OP_LIST, retop, newSVOP(OP_CONST, 0,
                    /* newSVpvf("nextstate:%s:%d", CopFILE(cCOPx(kid)), cCOPx(kid)->cop_line))); */
-                   newSVpvf("nextstate:%d", cCOPx(kid)->cop_line)));
+                   newSVpvf("nextstate:%u", (unsigned int)cCOPx(kid)->cop_line)));
                break;
            case OP_ARGCHECK: {
                UNOP_AUX_item *aux = cUNOP_AUXx(kid)->op_aux;