diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-11-03 09:13:16 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-11-03 09:13:16 +0000 |
| commit | 76c6a2133b7f687937d91eb41bb4c9f222c0d5b0 (patch) | |
| tree | f99c30ad7ba184b562382a2f61b012bdcb5e6cad /ext/PerlIO | |
| parent | 65d4ed585fc0b0724434037c49c7631adb1617ac (diff) | |
| download | perl-76c6a2133b7f687937d91eb41bb4c9f222c0d5b0.tar.gz | |
Silence one more format warning
p4raw-id: //depot/perl@34700
Diffstat (limited to 'ext/PerlIO')
| -rw-r--r-- | ext/PerlIO/scalar/scalar.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/PerlIO/scalar/scalar.xs b/ext/PerlIO/scalar/scalar.xs index 5828a550db..6876b2b091 100644 --- a/ext/PerlIO/scalar/scalar.xs +++ b/ext/PerlIO/scalar/scalar.xs @@ -26,7 +26,7 @@ PerlIOScalar_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg, if (SvROK(arg)) { if (SvREADONLY(SvRV(arg)) && mode && *mode != 'r') { if (ckWARN(WARN_LAYER)) - Perl_warner(aTHX_ packWARN(WARN_LAYER), PL_no_modify); + Perl_warner(aTHX_ packWARN(WARN_LAYER), "%s", PL_no_modify); SETERRNO(EINVAL, SS_IVCHAN); return -1; } |