diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-06-16 20:39:34 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-27 06:30:09 +0000 |
| commit | 6170680bfd1817febf6b13f65734e3e2e6e3f9bf (patch) | |
| tree | 87a68c7db652aef9bf5d18ececb42a5ef889680e /embed.h | |
| parent | 31e5645579ece4c41b72ec55a303b796b7409118 (diff) | |
| download | perl-6170680bfd1817febf6b13f65734e3e2e6e3f9bf.tar.gz | |
applied suggested patch; added missing prototype changes to
opcode.pl along with documentation typos (feature still needs
to be described in perlopentut.pod and summarized in
perldelta.pod)
Message-Id: <199906170439.AAA18154@monk.mps.ohio-state.edu>
Subject: [PATCH 5.00557] 3-arg open
p4raw-id: //depot/perl@3786
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -122,6 +122,7 @@ #define do_join Perl_do_join #define do_kv Perl_do_kv #define do_open Perl_do_open +#define do_open9 Perl_do_open9 #define do_pipe Perl_do_pipe #define do_print Perl_do_print #define do_readline Perl_do_readline @@ -1447,6 +1448,7 @@ #define do_join(a,b,c,d) Perl_do_join(aTHX_ a,b,c,d) #define do_kv() Perl_do_kv(aTHX) #define do_open(a,b,c,d,e,f,g) Perl_do_open(aTHX_ a,b,c,d,e,f,g) +#define do_open9(a,b,c,d,e,f,g,h,i) Perl_do_open9(aTHX_ a,b,c,d,e,f,g,h,i) #define do_pipe(a,b,c) Perl_do_pipe(aTHX_ a,b,c) #define do_print(a,b) Perl_do_print(aTHX_ a,b) #define do_readline() Perl_do_readline(aTHX) @@ -2875,6 +2877,8 @@ #define do_kv Perl_do_kv #define Perl_do_open CPerlObj::Perl_do_open #define do_open Perl_do_open +#define Perl_do_open9 CPerlObj::Perl_do_open9 +#define do_open9 Perl_do_open9 #define Perl_do_pipe CPerlObj::Perl_do_pipe #define do_pipe Perl_do_pipe #define Perl_do_print CPerlObj::Perl_do_print |