diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-22 10:06:53 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-22 10:06:53 +0000 |
| commit | 894356b32151f778d4d2915c6db38e5d049b115a (patch) | |
| tree | 80e9c55bdd3e19adc9d1ef8cc20c50b2f7756b9d /toke.c | |
| parent | f30a114324770080b9e0b2bcfb9c2278f5e0a290 (diff) | |
| download | perl-894356b32151f778d4d2915c6db38e5d049b115a.tar.gz | |
add patch for printf-style format typechecks (from Robin Barker
<rmb1@cise.npl.co.uk>); fixes for problems so identified
p4raw-id: //depot/perl@4836
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1384,7 +1384,7 @@ S_scan_const(pTHX_ char *start) if (ckWARN(WARN_UTF8)) Perl_warner(aTHX_ WARN_UTF8, "\\x%.*s will produce malformed UTF-8 character; use \\x{%.*s} for that", - len,s,len,s); + (int)len,s,(int)len,s); } *d++ = (char)uv; } @@ -7122,7 +7122,7 @@ Perl_yyerror(pTHX_ char *s) PL_multi_end = 0; } if (PL_in_eval & EVAL_WARNONLY) - Perl_warn(aTHX_ "%_", msg); + Perl_warn(aTHX_ "%"SVf, msg); else qerror(msg); if (PL_error_count >= 10) |