Implement open( my $fh, ...) and similar.
authorNick Ing-Simmons <nik@tiuk.ti.com>
Fri, 7 May 1999 21:24:50 +0000 (21:24 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Fri, 7 May 1999 21:24:50 +0000 (21:24 +0000)
commit853846ea710f8feaed8c98b358bdc8967dd522d2
treeb897c99fba920636ba7e2d962c8cf67880fd40d6
parent7c1e0849686a4ea069f6fa2a095a70c337e62ace
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
op.c
pp.c
pp_sys.c
t/io/open.t