From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 3 Nov 2008 09:13:16 +0000 (+0000)
Subject: Silence one more format warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=76c6a2133b7f687937d91eb41bb4c9f222c0d5b0;p=p5sagit%2Fp5-mst-13.2.git

Silence one more format warning

p4raw-id: //depot/perl@34700
---

diff --git a/ext/PerlIO/scalar/scalar.xs b/ext/PerlIO/scalar/scalar.xs
index 5828a55..6876b2b 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;
 	    }