summaryrefslogtreecommitdiff
path: root/perlapi.c
diff options
context:
space:
mode:
authorIlya Zakharevich <ilya@math.berkeley.edu>1999-06-16 20:39:34 -0400
committerGurusamy Sarathy <gsar@cpan.org>1999-07-27 06:30:09 +0000
commit6170680bfd1817febf6b13f65734e3e2e6e3f9bf (patch)
tree87a68c7db652aef9bf5d18ececb42a5ef889680e /perlapi.c
parent31e5645579ece4c41b72ec55a303b796b7409118 (diff)
downloadperl-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 'perlapi.c')
-rwxr-xr-xperlapi.c7
1 files changed, 7 insertions, 0 deletions
diff --git a/perlapi.c b/perlapi.c
index ff5c8593da..192428bf3f 100755
--- a/perlapi.c
+++ b/perlapi.c
@@ -798,6 +798,13 @@ Perl_do_open(pTHXo_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int ra
return ((CPerlObj*)pPerl)->Perl_do_open(gv, name, len, as_raw, rawmode, rawperm, supplied_fp);
}
+#undef Perl_do_open9
+bool
+Perl_do_open9(pTHXo_ GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num)
+{
+ return ((CPerlObj*)pPerl)->Perl_do_open9(gv, name, len, as_raw, rawmode, rawperm, supplied_fp, svs, num);
+}
+
#undef Perl_do_pipe
void
Perl_do_pipe(pTHXo_ SV* sv, GV* rgv, GV* wgv)