Implement open( my $fh, ...) and similar.

  Set flag in op.c for "constructor ops"
  In pp_rv2gv, if flag is set and arg is PADSV and uninit
  vivify as reference to a detached GV.
  (Name of GV is the pad name.)
This scheme should "just work" for pipe/socket etc. too.

#if 0 out the open(FH,undef) for now.
Change t/io/open.t to test open(my $fh,...)

p4raw-id: //depot/perl@3326

1 files changed, 4 insertions, 0 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 3f4a112276..e52a864684 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -506,6 +506,8 @@ PP(pp_open)
 	DIE(PL_no_usym, "filehandle");
     if (GvIOp(gv))
 	IoFLAGS(GvIOp(gv)) &= ~IOf_UNTAINT;
+
+#if 0 /* no undef means tmpfile() yet */
     if (sv == &PL_sv_undef) {
 #ifdef PerlIO
 	PerlIO *fp = PerlIO_tmpfile();
@@ -518,6 +520,8 @@ PP(pp_open)
 	    RETPUSHUNDEF;
 	RETURN;
     }   
+#endif /* no undef means tmpfile() yet */
+
     tmps = SvPV(sv, len);
     if (do_open(gv, tmps, len, FALSE, O_RDONLY, 0, Nullfp))
 	PUSHi( (I32)PL_forkprocess );