diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-11-02 16:50:12 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-11-02 16:50:12 +0000 |
| commit | f1f66076265cc2bac3adabd54c01b0dea28ca3f0 (patch) | |
| tree | 995188aa60f1633c89a20a0cfaf3bcdf52e56e73 /toke.c | |
| parent | b8fcbefe6253f6cbcf6817158c0e99c8018b2d46 (diff) | |
| download | perl-f1f66076265cc2bac3adabd54c01b0dea28ca3f0.tar.gz | |
Explicitly specify some printf formats for constant strings.
This is mostly to silence gcc's warning, "format not a string
literal and no format arguments".
p4raw-id: //depot/perl@34694
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4692,7 +4692,7 @@ Perl_yylex(pTHX) && isIDFIRST_lazy_if(s,UTF)) { CopLINE_dec(PL_curcop); - Perl_warner(aTHX_ packWARN(WARN_SEMICOLON), PL_warn_nosemi); + Perl_warner(aTHX_ packWARN(WARN_SEMICOLON), "%s", PL_warn_nosemi); CopLINE_inc(PL_curcop); } BAop(OP_BIT_AND); @@ -5360,7 +5360,7 @@ Perl_yylex(pTHX) if (PL_expect == XOPERATOR) { if (PL_bufptr == PL_linestart) { CopLINE_dec(PL_curcop); - Perl_warner(aTHX_ packWARN(WARN_SEMICOLON), PL_warn_nosemi); + Perl_warner(aTHX_ packWARN(WARN_SEMICOLON), "%s", PL_warn_nosemi); CopLINE_inc(PL_curcop); } else |