diff options
| author | Robin Barker <RMBarker@cpan.org> | 2001-03-29 14:29:21 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-29 14:26:03 +0000 |
| commit | 29b291f76369791070837587a559330fa49a7060 (patch) | |
| tree | 80be341f8bb06fd723c50206e2b57f6e529c677b /toke.c | |
| parent | 210db7fc53b6b7664595bb19b3377dc4d623b968 (diff) | |
| download | perl-29b291f76369791070837587a559330fa49a7060.tar.gz | |
printf warning
Message-Id: <200103291229.NAA03968@tempest.npl.co.uk>
p4raw-id: //depot/perl@9436
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -187,7 +187,8 @@ S_tokereport(pTHX_ char *thing, char* s, I32 rv) SV *report; DEBUG_T({ report = newSVpv(thing, 0); - Perl_sv_catpvf(aTHX_ report, ":line %i:%i:", CopLINE(PL_curcop), rv); + Perl_sv_catpvf(aTHX_ report, ":line %d:%"IVdf":", CopLINE(PL_curcop), + (IV)rv); if (s - PL_bufptr > 0) sv_catpvn(report, PL_bufptr, s - PL_bufptr); |