Change 34700 by [EMAIL PROTECTED] on 2008/11/03 09:13:16
Silence one more format warning
Affected files ...
... //depot/perl/ext/PerlIO/scalar/scalar.xs#19 edit
Differences ...
==== //depot/perl/ext/PerlIO/scalar/scalar.xs#19 (text) ====
Index: perl/ext/PerlIO/scalar/scalar.xs
--- perl/ext/PerlIO/scalar/scalar.xs#18~33280~ 2008-02-11 07:39:16.000000000
-0800
+++ perl/ext/PerlIO/scalar/scalar.xs 2008-11-03 01:13:16.000000000 -0800
@@ -26,7 +26,7 @@
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;
}
End of Patch.
