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 /perl.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 'perl.c')
| -rw-r--r-- | perl.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -2852,7 +2852,7 @@ Perl_eval_pv(pTHX_ const char *p, I32 croak_on_error) PUTBACK; if (croak_on_error && SvTRUE(ERRSV)) { - Perl_croak(aTHX_ SvPVx_nolen_const(ERRSV)); + Perl_croak(aTHX_ "%s", SvPVx_nolen_const(ERRSV)); } return sv; @@ -3306,13 +3306,13 @@ Perl_moreswitches(pTHX_ const char *s) upg_version(PL_patchlevel, TRUE); #if !defined(DGUX) PerlIO_printf(PerlIO_stdout(), - Perl_form(aTHX_ "\nThis is perl, %"SVf + "\nThis is perl, %"SVf #ifdef PERL_PATCHNUM - " DEVEL" STRINGIFY(PERL_PATCHNUM) + " DEVEL" STRINGIFY(PERL_PATCHNUM) #endif - " built for %s", - SVfARG(vstringify(PL_patchlevel)), - ARCHNAME)); + " built for %s", + SVfARG(vstringify(PL_patchlevel)), + ARCHNAME); #else /* DGUX */ /* Adjust verbose output as in the perl that ships with the DG/UX OS from EMC */ PerlIO_printf(PerlIO_stdout(), |