Infrastructure to allow:

  open($fh,"|-",@array);
to be implemented
i.e. mark pp_open as needing a stack mark, and make pp_open
process its args in that style (and pass them _all_ to tied handles OPEN).
Invent do_openn() which takes SV ** at allow it to see multiple args.
Note this does not _do_ anything yet.

p4raw-id: //depot/perlio@8484

1 files changed, 4 insertions, 0 deletions

diff --git a/objXSUB.h b/objXSUB.h
index 60c6e9038b..5867ed279b 100644
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -325,6 +325,10 @@
 #define Perl_do_open9		pPerl->Perl_do_open9
 #undef  do_open9
 #define do_open9		Perl_do_open9
+#undef  Perl_do_openn
+#define Perl_do_openn		pPerl->Perl_do_openn
+#undef  do_openn
+#define do_openn		Perl_do_openn
 #undef  Perl_dowantarray
 #define Perl_dowantarray	pPerl->Perl_dowantarray
 #undef  dowantarray