diff options
| author | Robin Barker <RMBarker@cpan.org> | 2003-07-04 20:15:01 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-05 07:47:02 +0000 |
| commit | 9d98dee5fcee210141879c0b0c7842f30f964cc5 (patch) | |
| tree | 5709697785c24e0452c0dbec756dc35afcd4c51b /dump.c | |
| parent | 605870ffea09953bf4597a1d92cf250d07eeda65 (diff) | |
| download | perl-9d98dee5fcee210141879c0b0c7842f30f964cc5.tar.gz | |
dump.c -Wformat; Re: maint @ 19975, maint @ 19997
Message-ID: <533D273D4014D411AB1D00062938C4D9040465BD@hotel.npl.co.uk>
p4raw-id: //depot/perl@20004
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -412,7 +412,8 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) if (o->op_targ == OP_NEXTSTATE) { if (CopLINE(cCOPo)) - Perl_dump_indent(aTHX_ level, file, "LINE = %d\n",CopLINE(cCOPo)); + Perl_dump_indent(aTHX_ level, file, "LINE = %"UVf"\n", + (UV)CopLINE(cCOPo)); if (CopSTASHPV(cCOPo)) Perl_dump_indent(aTHX_ level, file, "PACKAGE = \"%s\"\n", CopSTASHPV(cCOPo)); @@ -655,7 +656,8 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) case OP_NEXTSTATE: case OP_DBSTATE: if (CopLINE(cCOPo)) - Perl_dump_indent(aTHX_ level, file, "LINE = %d\n",CopLINE(cCOPo)); + Perl_dump_indent(aTHX_ level, file, "LINE = %"UVf"\n", + (UV)CopLINE(cCOPo)); if (CopSTASHPV(cCOPo)) Perl_dump_indent(aTHX_ level, file, "PACKAGE = \"%s\"\n", CopSTASHPV(cCOPo)); |