Lexical use open ... support:

  add ->cop_io to COP structure in cop.h.
  Make mg.c and gv.c associate it with ${^OPEN}.
  Make lib/open.pm set it.
  Have sv.c, perl.c, pp_ctl.c, op.c manipulate it in a manner
  manner similar to ->cop_warnings.
  Have doio.c's do_open9 and pp_sys.c's pp_backticks use it as default and
  call new PerlIO_apply_layers().
  Declare latter in perlio.h and define in perlio.c

p4raw-id: //depot/perlio@7740

1 files changed, 1 insertions, 0 deletions

diff --git a/cop.h b/cop.h
index 6e8bd91e42..e1b89c778d 100644
--- a/cop.h
+++ b/cop.h
@@ -21,6 +21,7 @@ struct cop {
     I32		cop_arybase;	/* array base this line was compiled with */
     line_t      cop_line;       /* line # of this command */
     SV *	cop_warnings;	/* lexical warnings bitmask */
+    SV *	cop_io;		/* lexical IO defaults */
 };
 
 #define Nullcop Null(COP*)