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

p4raw-id: //depot/perl@35088

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) );