From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 14 Dec 2008 09:26:00 +0000 (+0000)
Subject: Fix change 35082 by manually expanding do_open() to Perl_do_openn().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7f8ee4bea33e6e23ac4302695a9b26db779fd38a;p=p5sagit%2Fp5-mst-13.2.git

Fix change 35082 by manually expanding do_open() to Perl_do_openn().

p4raw-id: //depot/perl@35088
---

diff --git a/doio.c b/doio.c
index 221c5ea..6135efa 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) );