This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence one more format warning
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 3 Nov 2008 09:13:16 +0000 (09:13 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 3 Nov 2008 09:13:16 +0000 (09:13 +0000)
p4raw-id: //depot/perl@34700

ext/PerlIO/scalar/scalar.xs

index 5828a55..6876b2b 100644 (file)
@@ -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;
            }