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 /universal.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 'universal.c')
| -rw-r--r-- | universal.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/universal.c b/universal.c index 06dde0ccc2..40b0eae67e 100644 --- a/universal.c +++ b/universal.c @@ -1332,7 +1332,7 @@ XS(XS_Tie_Hash_NamedCapture_STORE) if (!rx) { if (!PL_localizing) - Perl_croak(aTHX_ PL_no_modify); + Perl_croak(aTHX_ "%s", PL_no_modify); else XSRETURN_UNDEF; } @@ -1354,7 +1354,7 @@ XS(XS_Tie_Hash_NamedCapture_DELETE) croak_xs_usage(cv, "$key, $flags"); if (!rx) - Perl_croak(aTHX_ PL_no_modify); + Perl_croak(aTHX_ "%s", PL_no_modify); SP -= items; @@ -1375,7 +1375,7 @@ XS(XS_Tie_Hash_NamedCapture_CLEAR) rx = PL_curpm ? PM_GETRE(PL_curpm) : NULL; if (!rx) - Perl_croak(aTHX_ PL_no_modify); + Perl_croak(aTHX_ "%s", PL_no_modify); SP -= items; |