From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 3 Feb 2002 18:32:31 +0000 (+0000)
Subject: Debug noise.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce8c819616049942b71a3b6af9feab67951411a5;p=p5sagit%2Fp5-mst-13.2.git

Debug noise.

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

diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs
index c48a5a0..7570b54 100644
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@ -309,7 +309,9 @@ PerlIOEncode_flush(pTHX_ PerlIO * f)
 	    XPUSHs(e->enc);
 	    SvCUR_set(e->bufsv, e->base.ptr - e->base.buf);
 	    SvUTF8_on(e->bufsv);
+#if 0
 	    Perl_warn(aTHX_ "flush %_",e->bufsv);
+#endif
 	    XPUSHs(e->bufsv);
 	    XPUSHs(&PL_sv_yes);
 	    PUTBACK;