From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Wed, 22 May 2002 19:04:13 +0000 (+0000)
Subject: Flag the VMS-problem-causing part of :encoding
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8849edfd7e990957ceb72629c600ff2b74b838b1;p=p5sagit%2Fp5-mst-13.2.git

Flag the VMS-problem-causing part of :encoding
for enhancement. (Problem still needs fixing in perlio.c)

p4raw-id: //depot/perlio@16737
---

diff --git a/ext/PerlIO/encoding/encoding.xs b/ext/PerlIO/encoding/encoding.xs
index 3560565..2903f72 100644
--- a/ext/PerlIO/encoding/encoding.xs
+++ b/ext/PerlIO/encoding/encoding.xs
@@ -442,6 +442,7 @@ PerlIOEncode_flush(pTHX_ PerlIO * f)
 	else if ((PerlIOBase(f)->flags & PERLIO_F_RDBUF)) {
 	    /* read case */
 	    /* if we have any untranslated stuff then unread that first */
+	    /* FIXME - unread is fragile is there a better way ? */
 	    if (e->dataSV && SvCUR(e->dataSV)) {
 		s = SvPV(e->dataSV, len);
 		count = PerlIO_unread(PerlIONext(f),s,len);