From: Jarkko Hietaniemi 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;