summaryrefslogtreecommitdiff
path: root/doio.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2008-12-14 09:26:00 +0000
committerNicholas Clark <nick@ccl4.org>2008-12-14 09:26:00 +0000
commit7f8ee4bea33e6e23ac4302695a9b26db779fd38a (patch)
tree0cfbc16a78222911bb7f61fc6c4785ead168c778 /doio.c
parent30fc4309ed1e3ccf7d2e8d9d3401a485e1991375 (diff)
downloadperl-7f8ee4bea33e6e23ac4302695a9b26db779fd38a.tar.gz
Fix change 35082 by manually expanding do_open() to Perl_do_openn().
p4raw-id: //depot/perl@35088
Diffstat (limited to 'doio.c')
-rw-r--r--doio.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/doio.c b/doio.c
index 221c5ea178..6135efa46d 100644
--- a/doio.c
+++ b/doio.c
@@ -845,14 +845,14 @@ Perl_nextargv(pTHX_ register GV *gv)
sv_setpvn(sv,PL_oldname,oldlen);
SETERRNO(0,0); /* in case sprintf set errno */
- if (!do_open(PL_argvoutgv,(char*)SvPVX_const(sv),SvCUR(sv),TRUE,
+ if (!Perl_do_openn(aTHX_ PL_argvoutgv, (char*)SvPVX_const(sv),
+ SvCUR(sv), TRUE,
#ifdef VMS
- O_WRONLY|O_CREAT|O_TRUNC,0,
+ O_WRONLY|O_CREAT|O_TRUNC,0,
#else
- O_WRONLY|O_CREAT|OPEN_EXCL,0600,
+ O_WRONLY|O_CREAT|OPEN_EXCL,0600,
#endif
- NULL))
- {
+ NULL, NULL, 0)) {
if (ckWARN_d(WARN_INPLACE))
Perl_warner(aTHX_ packWARN(WARN_INPLACE), "Can't do inplace edit on %s: %s",
PL_oldname, Strerror(errno) );