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 /perlapi.c | |
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 'perlapi.c')
-rwxr-xr-x | perlapi.c | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -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) |