Debug noise.

p4raw-id: //depot/perl@14539

diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs
index c48a5a0..7570b54 100644 (file)
--- 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;