diff options
| author | Robin Barker <RMBarker@cpan.org> | 2000-09-14 19:07:38 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-14 17:45:35 +0000 |
| commit | d2560b705d852dbc96fd94b95faaa076758b7a8c (patch) | |
| tree | 801efa93c2b2e08931c3a2f8355b8fb9d8c62395 /toke.c | |
| parent | 183a2d84c1f59ccc4c14106315b4806f773a1203 (diff) | |
| download | perl-d2560b705d852dbc96fd94b95faaa076758b7a8c.tar.gz | |
continued -Wformat support
Message-Id: <200009141707.SAA13276@tempest.npl.co.uk>
p4raw-id: //depot/perl@7081
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1219,7 +1219,7 @@ S_scan_const(pTHX_ char *start) if (min > max) { Perl_croak(aTHX_ "Invalid [] range \"%c-%c\" in transliteration operator", - min, max); + (char)min, (char)max); } #ifndef ASCIIish @@ -7354,7 +7354,7 @@ Perl_yyerror(pTHX_ char *s) qerror(msg); if (PL_error_count >= 10) { if (PL_in_eval && SvCUR(ERRSV)) - Perl_croak(aTHX_ "%_%s has too many errors.\n", + Perl_croak(aTHX_ "%"SVf"%s has too many errors.\n", ERRSV, CopFILE(PL_curcop)); else Perl_croak(aTHX_ "%s has too many errors.\n", |