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 /pp_sys.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 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1027,7 +1027,7 @@ PP(pp_sselect) if (SvIsCOW(sv)) sv_force_normal_flags(sv, 0); if (SvREADONLY(sv) && !(SvPOK(sv) && SvCUR(sv) == 0)) - DIE(aTHX_ PL_no_modify); + DIE(aTHX_ "%s", PL_no_modify); } if (!SvPOK(sv)) { if (ckWARN(WARN_MISC)) |