Implement :std subpragma of the open pragma

that makes the standard filehandles to talk in
encodings.  This change set off a weird warning
from op.c, though: disabled it now until someone
who knows what it is about comes along.

p4raw-id: //depot/perl@15146

1 files changed, 3 insertions, 1 deletions

diff --git a/op.c b/op.c
index b0d4006583..5b1156724c 100644
--- a/op.c
+++ b/op.c
@@ -927,7 +927,9 @@ S_cop_free(pTHX_ COP* cop)
 #ifdef USE_ITHREADS
 	STRLEN len;
         char *s = SvPV(cop->cop_io,len);
-	Perl_warn(aTHX_ "io='%.*s'",(int) len,s);
+#if 0
+	Perl_warn(aTHX_ "io='%.*s'",(int) len,s); /* ??? --jhi */
+#endif
 #else
 	SvREFCNT_dec(cop->cop_io);
 #endif